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RP-TO-R SlBROUriNE 

ai»E«0UriNB TO CCKVBRT RP (VECTOR IN PLANETARJT COORDINATE STSIB4,EnHER 
BARIH-KIXED or HOCN-PIXED) to R (SA* vector in the basic rep. SYSTH4> 


■=Mr(T)*tRP*LPXHP) tn= M MATRIX TRANSPOSE 


CALLDO SE(xe«S 
L CALL 

Ln RP-TO-R 


atAtauriNEs used 
EAH l»6C,M0Cmc,EARTre, 


nee available prcm launch data 

504LM= the libraticn vector l op the M0(» at time timsubl.exphbssed 
IN RC MOON-PIXHJ COOTO. SYSIB4 RADIANS Bo 

ITBAS necessary for SUBR. UfflD (fflE DESCRIPTICN OP SUBR. ) 


INPUT 

l*AC= 0 PQR EARIH.NCH-ZEHO POR MOCN 
•-50= RP vector 
*-to= TI* 


OUTPUT 

»ACr R vector ^eIERS B-29 FOR EARTH, B_2T POR MOCN 


•020 

HP 

1 



26,2000 




SBTUr PLANTIN 


•021 





28,3341 




bank 



•022 

HP 

1 







COUNT* ss/LUROT 


•023 





28,3341 

46020 

1 

RP-TO-H 

STO 

BHIZ 


•024 

HP 

1 



28,3342 

00050 

1 



RPREXIT 


•02S 

HP 

1 



26,3343 

55356 

1 



RPTORA 


•02S 





28,3344 

77624 

1 


CALL 


CCMPUTE M MATRIX PC» MOCN 

•02r 

■HP 

1 



26,3345 

55416 

1 



M0CN>*( 

LPrLM PC» MOCN RADIANS Bq 

•028 





26,3346 

77775 

1 


VU»D 


•02« 

HP 

1 



28,3347 

02012 

0 



504tM 


•030 





28,3350 

53235 

0 

RPTORB 

VXV 

VAD 


0031 

HP 

1 



28,3351 

00001 

0 



504HPR 


0032 

HP 

2 

LAST 

1213 

26,3352 

00001 

0 



504RPR 


•033 





28,3353 

52105 

1 


VXM 

(XJTO 


•034 

WBP 

1 



28,3354 

00025 

0 



M4ATHIX 

MPACrH=Mr( T)*( RP+LPXRP ) 

•03S 

HP ' 

1 



26,3355 

55404 

1 



RPRPXXXX 

reset poaiLOC TO 0 before Exiting 

•036 





28,3356 

77624 

1 

RPTORA 

CAU, 


EARIH ccmpubaticns 

•03T 

HP 

1 



28,3357 

55570 

0 



BARTHVfX 

M matrix B-1 

•038 





26,3360 

77624 

1 


CALL 



•039 

RBP 

1 



26.3381 

55622 

1 



barihl 

L VECTOR RADIANS Bq 

0040 





26,3382 

76521 

0 


»XV 

VS1,1 

LP=M(T)+t, RAD B-0 

0041 

10' 

2 

LAST 

1213 

26,3363 

00025 

0 



M4ATRIX 





I 
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0042 

0043 EBP 1 


26.3364 T7650 1 

26.3365 55350 1 








J0’3S CX?r. 28,1968 SATBAP .oot PAOB 1215 
USRbS pace ho. 3 Bo S3 

P004A R-TO-HP subroutine 

R0045 subroutine TO CCNVERT R (VECTOR IN REPBRfflJCB COORD. STSTBI) TO HP 
ROOAe tVE(?TOR IN PlANETARSf COORD STSTEM) EITHER EARTH-PIXED OR MOCM-PIXH) 

R004T RP=M(T)4(R-U(R) 

R0048 CALLING SBOUBNCB 

R0049 L CALL 

ROOSO L*l R-TO-HP 

H0051 SlBROUrlNES USED 
H0052 EAR1»«C,MOCN1 <K,EA'RtHL 

R0053 INPUT 

B0054 MPAC= 0 for EAR1H,NCN-ZBH0 P(B MOON 

R0055 0-5D= R vector 

R0058 8-70= TI« 

BOOST ITEMS AVAILABLE PROM LAUNCH DATA 

R0058 504LM= THE LIBRATICN VECTOR L OP THE MOCM AT TIi« TlMSUBL.ExPHBSfflD 

R0059 IN THE MOCK-FIXED COORD. SVSTEM RADIANS Bfl 

R0060 ITB4S NECESSARY FOR SUBROUTINES UfflD (SEE DESCRIPTION CP SUBR.) 

B0081 OUTPUT 

R0062 MPAC=RP vector [«TEHS B- 2g FOR EARTH, B-27 FOR MOCK 




0063 




26,3366 

46020 

1 

R-TO-flP 

STO 

BHIZ 

0064 

REP 

2 

LAST 1213 

26,3367 

00050 

i 



HPREXIT 

0065 

REP 

1 


26,3370 

55410 

1 



RTORPA 

0066 




26,3371 

77624 

1 


CALL 


0067 

REF 

2 

LAST 1213 

26,3372 

55416 

1 



MOCKMX 

0068 




26,3373 

61375 

1 


VLOy> 

VXM 

0069 

REF 

2 

last 1213 

26,3374 

02012 

0 



504LM 

0070 

REP 

3 

IAST 1213 

26,3375 

00025 

0 



M4ATRIX 

0071 




26,3376 

TTT72 

0 


va^i 


0072 




26,3377 

51235 

1 

KIOBPB 

vxv 

BVSU 

0073 

REP 

3 

LAST 1213 

26,3400 

00001 

0 



504RPR 

0074 

REP 

4 

LAST 1215 

26,3401 

00001 

0 



504RPR 

0075 




26,3402 

TTT21 

0 




0076 

REF 

4 

LAST 1215 

26,3403 

00025 

0 



fWTRIX 

0077 




26,3404 

40372 

0 

RPRPXXXX VSLl 

®TPD 

0078 




26,3405 

00001 

0 



OD 

0079 




26,3406 

77650 

1 


GOTO 


0080 

REP 

3 

LAST 1215 

26,3407 

00050 

1 



RPREXIT 

0081 




26,3410 

77624 

1 

RIORPA 

CAU, 


0082 

REP 

2 

LAST 1213 

26,3411 

55570 

0 



EABIH4X 

0083 




26,3412 

77624 

1 


CALL 


0084 

REF 

2 

LAST 1213 

26,3413 

55622 

1 



EARTHL 

0085 




20,3414 

77650 

1 


GOTO 


0086 

REP 

1 


26,3415 

55 377 

1 



RTORPfl 


lp=Lm 

L=MT(T)4LP RADIANS Bo 

M(T)*(R-LXR) B-2 

earth CCMPUEAtKKS 

MPAC=L=C-AX.-AY,0) rad B-0 
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MXWC Sl^BOUTINE 


MOSS SUBBOUriNE TO CCMPUIE THE TEWNSPOHM»TICN MlTRIX M POR THE MOCN 


R0089 CAU^INO SEOUENCB 
R0090 L CALL 

ROOOl 1^1 Hocmc 


R009Z SmUHriNES USED 
R0093 NEtlANOLB 


WPOT 
8-10= TI® 

ITBIS available PRCM LAUNCH DAW 
BSieO.BDOT 

TIMSUBO.NODIO.NODDOT.PSUBO.PDOT 
OOSI= cost I) B-1 
SINI= SIN( I) B-i 

I IS THE ANGLE BETWEEN THE («AN LUNAR EOUATORIAL PLANE AND THE 
PLANE OP THE ECLIPTIC (i DEGREE 32.1 MINUTES) 


oumrr 

»«lTaiX= 3X3 M MATRIX B-i 


(STORED IN VAC AREA) 


0105 





28,3416 

40220 0 MOCNMX 

sm 

SETPD 

0100 

REP 

1 



26,341T 

00031 0 


earths 

OlOT 





26,3420 

00011 1 


8D 

0108 





28,3421 

TTTTO 1 

AXT,1 


0109 





26,3422 

00003 1 


5 

0110 





28,3423 

65343 0 

DLOAD 

POOL 

0111 

RH' 

1 



26,3424 

15632 1 


BslBO 

0112 

REP 

1 



28,3423 

15644 0 


BDOT 

0113 





26,3426 

45006 0 

puai 

CAU, 

0114 

REP 

1 



26,3427 

55543 0 


NEWANGLE 

0115 





26,3430 

71408 0 

PUSH 

COS 

0116 

RHP 

1 



26,3431 

14041 1 

STOaL 

CCB 

OUT 





26,3432 

TT7S6 0 

SIN 


0118 

REP 

1 



26,3433 

14043 0 

STODL 

SOB 

0119 

REP 

1 



26,3434 

15650 0 


PSUBO 

0120 





26,3433 

41523 0 

POOL 

PUSH 

0121 

REP 

1 



26,3436 

15642 0 


FOOT 

0122 





28,3437 

451T0 0 

AXT,1 

CALL 

0123 





26,3440 

00004 0 


4 

0124 

REP 

2 

LAST 

1216 

26,3441 

55343 0 


NEWANGLE 

0125 

REP 

1 



26,3442 

14027 1 

STODL 

AVECTR 1-2 

0128 

REP 

1 



26,3443 

15646 1 


NCDIO 

012T 





26,3444 

41523 0 

POOL 

PUSH 

0128 

REP 

1 



26,3443 

15640 1 


NODCxrr 

0129 





26,3446 

45170 0 

AXT.l 

CALL 

0130 





28,3447 

00005 1 


5 

0131 

REP 

3 

LAST 

1216 

26,3430 

55543 0 


newangle 


B REOUIRES SL 0, a- 5 in newangle 


8-9D=BSUB0 

10-1 lD= boot 


PD 12D 

EXIT WITH PO gD AND MPAC= B REVS Bq 
PO lOD 

PD gD COS(B) B-i 
sin(B) B-i 

setup input por newangle 

8-9l>=PSUBO 

PO loD THQI 12D lO-llDrFDOr 




p requires sl 1, a. 6 in newanhe 


exit with PD gD AND MPAC= P REVS Bo 
SAVE F TEMP 

g-9D=NCDI0 

PD lOD THEN 12D 10-11D=NODOOT 
MPAC=T 

NODE requires SL 0, a. 5 IN NEwANCai? 


EXIT WITH PO gD AND MPAC= NODI REVS Bo 


I 



Hi 
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0132 




26,3451 

0133 




26.3452 

0134 

REP 

2 

l^ST 1216 

26.3453 

0135 




26.3454 

0130 

REP 

2 

IAST 1216 

26,3455 

013T 

REP 

1 


26,3456 

0138 




26,3457 

0139 

REP 

2 

IAST 1216 

26,3460 

0140 

REP 

2 

lAsr 1217 

26,3461 

0141 




26,3462 

0142 




26,3463 

0143 

REP 

3 

LAST 1217 

28,3464 

0144 

HEP 

3 

last 1217 

26,3465 

0145 

REP 

1 


26,3466 

0146 




26,3467 

014T 

HEP 

3 

last 1217 

28,3470 

0148 

REP 

4 

last 1217 

26,3471 

0149 

HEP 

1 


26,3472 

0150 




26,3473 

0151 

HEP 

3 

last 1217 

26,3474 

0152 

HEP 

5 

LAST 1217 

26,3475 

0153 

REP 

26 

LAST 893 

26,3476 

0154 




26,3477 

0155 

REP 

4 

last 1217 

26,3500 

0156 




26,3501 

015T 

REP 

4 

last 1217 

26,3502 

0158 

REP 

4 

last 1217 

26,3503 

0159 




26,3504 

0160 

HEP 

1 


26,3505 

0161 

HEP 

1 


26,3506 

0162 




28,3507 

0163 

HEP 

1 


28,3510 

0164 




26,3511 

0165 

HEP 

5 

LAST 1215 

26,3512 

0166 




26,3513 

016T 

REP 

2 

last 1217 

26,3514 

0168 

REP 

5 

last 1217 

28,3515 

0169 




26,3516 

OITO 

REP 

2 

LAST 1217 

28,3517 

OlTl 




26,3520 

01T2 

REP 

2 

LAST 1217 

26,3521 

01T3 




26,3522 

01T4 

HEP 

1 


26,3523 

01T5 




26,3524 

01T6 

HEP 

3 

LAST 1217 

28,3525 

OITT 




26,3526 

0178 

REP 

6 

LAST 1217 

28,3527 

0179 




26,3530 

0180 

REP 

6 

LAST 1217 

28,3531 

0181 

HEP 

4 

LAST 1217 

26,3532 


71406 0 

HUSH 

008 

77606 1 

Hum 


00025 0 

SICBE 

AvECTO 

76405 1 

DMP 

9>1R 

00041 1 


ODB 

14035 1 

STtBL 

»/BCTa +2 

76405 1 

DMP 

S,1R 

00043 0 


SOB 

14037 0 

STCDL 

a®oi» +4 

41556 1 

SIN 

fUW 

77676 0 

DCCMp 


14033 1 

STCDL 

BVBCia 

00027 1 


AVBCTR *2 

14007 0 

STCDL 

504P 

76405 1 

DMP 

SLlR 

00041 1 


COB 

14027 1 

STCDL 

AvECto +2 

00011 1 


SINNODI 

76405 1 

DMP 

9,1R 

00043 0 


SOB 

14031 0 

ST03L 

AvECto +4 

15332 1 


HTs^HOS 

57525 1 

POOL 

DCQ4P 

00043 0 


SOB 

63325 0 

PDDL 

rovL 

00041 1 


COB 

00033 1 


bvecto 

63361 0 

vxsc 

POVL 

15638 0 


SINI 

00011 1 


CvECto 

53361 0 

vxsc 

VAO 

156 34 1 


COST 

77772 0 

VSbl 


24041 1 

SKVL 

M4ATOIX +120 

63361 0 

VXSC 

POVL 

156 36 0 


SINI 

00033 1 


ft«CTO 

52361 1 

vxsc 

VSU 

15634 1 


COSI 

65372 1 

VSLl 

PDDL 

00007 0 


504P 

74346 0 

COS 

VXSC 

00011 1 


dvbcto 

73525 1 

PDDL 

SIN 

00007 0 


504P 

52361 1 

VXSC 

VSU 

00025 0 


AVECTO 

77772 0 

VSLl 


14033 1 

STCDL 

J44ATOIX ^6 

00007 0 


504P 


PD lOD e-9D= NODI REVS Bo 
PD 12D 10-11D= COSfNQDlJ B-i 


COSCNODI) B-l 

PD lOD 20-25D=AVECMS= COB+SINCNODI) 
SCB4SINCNCDI) 

PD 8D 

PD lOD -SINtNQDT) B-i 

28-31D=BvECTH= COB4COS(NCDI) 

PD 8D SCB4C0S(NCDI) 

MCVE P PWW T0«> LOC. TO 504P 


8-9D=SIN(NCDI) B-i 


0 

8-13D= CvECTfc -SCB B-i 
PD loD COB 

PO 12D IHB^ PD 14D 


PO 20D BVECTB4SINI B-2 


PD I4 D CvECtEMCOSI B -2 


PD sD M2 =BVECTR*SINI+CvECTR«:0SI B-i 

PO 14D 

CVECTB+SINI B-2 
PD 8D BVECTR4C0SI B-2 

PD 14D 

8-lS>=DvECTO=BvECTR«;0SI-CvECTa*SINI B-l 


PD 20 D 14-19D= DvECTR4C0SP B-2 

PD 14 D AvECTB+SINP B -2 


Ml= AVECrra+SW-DvECTRtCOSF B-i 


I 


I 
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•182 




28,3533 

74356 1 

SIN 

VXSC 

PD 8D 


0183 




28,3534 

71525 0 

POX, 

CCS 

PO 14D 

8-13D=DvECTR*SINP B-2 

•184 

HHP 

5 

LAST 1217 

26,3535 

00007 0 


504P 



•185 




26,3536 

53361 0 

vxsc 

VAO 

PD 8D 

AVBCTR+COSP B-2 

•188 

BBP 

T 

lAST 1217 

28,3537 

00025 0 


avecto 



•18T 




26,3540 

57572 0 

VSLl 

VOMP 



•188 

BEK 

T 

LAST 1217 

28,3541 

34025 1 

SlCALL (MATRIX 

Mo= -IAVECTR+COSP+DvECTWSINP) B-1 

•189 

HEJP 

2 

last 1216 

26,3542 

00051 0 


EARIWta 



110190 

OCMPUIE 

X=XO<-(XDOr)(T*TO) 






II0191 

8-90= XO (REVS B-o) 

.POaiLOC SET at 12 D 





B0192 

10 -llD=XDOr (REVS/CSECl SCALED B»23 FOB WEAB1H,B*28 FOR NODDOT AND BOOT 



II0193 




AND B4.27 POa FOOT 




110194 

Xl=DIPme*S IN 23 and scaling op XDOr.rO fob wearth.s for ncddot and 



110195 






BDOT and 4 FOR FOOT 



1(0196 

6-TD=T ICSEC B-28), 

TIMSIE0= 

(CSEC B-42 

TRIPLE PREC.) 




019T 




26,3543 

54345 1 

NEtrANOLE DLCWO 

SR 

eiTER PO 12D 

•198 




28,3544 

00007 0 


8D 



•199 




28,3545 

20617 0 


14D 



0200 




28,3546 

72371 1 

tad 

TLQAD 

CHANGE MODE TO TP 

0201 

US' 

1 


28,3547 

01707 0 


timsubo 



•202 

BEJF B48 

LAST 1183 

26,3550 

00155 0 


MPAC 



0203 

HEP 

1 


26,3551 

14017 1 

STODL 

TIMSUBM 

T+TO CSEC B-42 

0204 

REP 

2 

LAST 1218 

26,3552 

00020 0 


TIMSUBM +1 



0205 




26,355 3 

77805 1 

DMP 


PO loD 

MULT by XDOT in lO-llD 

•206 . 




26,3554 

43257 0 

SUP 

DAD 

PD 8D 

ADD XO IN 8 - 9 D AFTER SHIFTING 

0207 




26,3555 

20206 1 


5,1 


SUCH THAT SCALING IS B-o 

0208 




26,3556 

67206 1 

poai 

aXMD 

PD lOD 

SAVE PARTIAL, (XO+YDOWT) IN 8-90 

0209 

REP 

3 

LAST 1218 

26,3557 

00017 1 


TIMSU3M 



0210 




26,3560 

41261 1 

SL 

DMP 



0211 




26,3561 

20212 1 


9D 



0212 




26,3562 

00013 0 


lOD 

XDOr 


0213 




26,3563 

4325 7 0 


DAD 

PD bD 

SHIFT SUCH THAT THIS PART OP X 

0214 




26,3564 

20213 0 


10D,1 


IS SCALED BEVS/CSEC B-o 

02141 




26,3565 

77600 1 

BCV 


nm OFT cvERPixw IP set by aiiPT 

•2142 




26,3566 

55567 0 


♦1 

instructicn before exiting 

•215 




26,3567 

77616 0 

RYO 


HPACiX= 

XO+IXDOrXT+TO) REVS Bo 
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EARTMC StBROOTIHE 


H021T SCPROirriNE TO COMPUIB THE T^STOCMUTION MlTRIX M FOR THE EARIH 


R0218 CALLINO SBOLENCS 

R0219 L CALL 

B0220 L*! EAH1»«c 


R0221 StmVriNBS USOl 
R0222 NEWANC3LB 


INPUT 

INPUT available PRCM LAUNCH DAW 


6-10= TIME CseC B-28 
OUTPUT 


AZO REVS B-o 
TEPHW CsEC B-42 


R0228 

»4ATRIx= 3X3 M matrix B-i 

(STORED IN VAC AMA) 


0229 




26,3570 

40220 0 

EAKDMx STO 

®TPD 

0230 

REF 

3 

last 1218 

26,3571 

00051 0 


eahtwxx 

0231 




26,3572 

00011 1 


6D 

0232 




28,3573 

77770 1 

AXT.l 


0233 




26,3574 

00000 1 

0 

0234 




26,3575 

65345 0 

DLQAD 

PDOL 

0235 

RBF 

1 


28,3576 

01712 1 


AZO 

0236 

REF 

1 


28,3577 

15654 1 


WEARIH 

023T 




28,3600 

45006 0 

puai 

CALL 

0238 

REF 

4 

LAST 1216 

26,3601 

55543 0 


nerangle 

0239 




28,36 02 

41401 1 

ffilPO 

puai 

0240 




M,3603 

00023 0 


ISD 

0241 




26,3604 

65 346 0 

COS 

POOL 

0242 

RH» 

1 


26,3605 

00023 0 


504AZ 

0243 




26,3606 

65356 1 

SIN 

PDDL 

0244 

REF 

2T 

LAST 1217 

28,3607 

15332 1 


HleZEROS 

0245 




26,3610 

73525 1 

POOL 

SIN 

0246 

REF 

2 

LAST 1219 

26,3611 

00023 0 


504AZ 

024T 




26,3612 

65276 1 

DCOtp 

POOL 

0248 

REF 

3 

LAST 1219 

26,3613 

00023 0 


504AZ 

0249 




26,3614 

63346 0 

<70S 

PDVL 

0250 

REF 

28 

LAST 1219 

26,3615 

15332 1 


HI6ZEROS 

0251 




.28,3616 

41525 0 

PDDL 

puai 

0252 

REF 

11 

LAST 835 

26,3617 

15330 0 


hidphalp 

0253 




26,3620 

77650 1 

CXJTO 


0254 

HHF 

4 

LAST 1219 

28,3621 

00051 0 


EARIH4XX 


ffir s-gDrAzO 


10-llD=V»EAmH 

POR SL 5, AND 3L 10 IN HEHANGLE 


LEAVING PD set at liD FOR NBnANGlE 


ie-19D=504AZ 

COSCAz) SIN(AZ) 0 

20-37D= »«THIX= -SWIAz) COS(AZ) 0 B-i 

0 0 1 




I 
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III 



usaus PACE NO. 


Bo S3 


P0255 

« . • • 

. EARIHL SlBROUriNB .. 




IU>256 

sifinairriNB to compuib l vector por barih 



R025T 

CALLING seaUEtKS 





1(0258 

L 


CALL 





B0259 

L*1 


BAKIHL 




1(0280 

INPUT 






1(0261 

AXO.AYO set At LAUIQI TI(« WITH AYO I»BJIATELY POLLOSTINO AXO IN 

1(0262 

CUTPUT 






1(0263 



-AX 





1(0264 

MPAC= 

-AY RADIANS B-o 




R0265 



0 





0286 




28,3622 

57545 1 EARIHL 

DLOAD 

DCQ4P 

026T 

REP 

2 

LAST 618 

26,3623 

01716 0 


AxO 

0268 

REP 

1 


28,3624 

14017 1 

STQDL/ 

504LPL 

0269 

REP 

2 

last 618 

26,3625 

01714 1 


-AYO 

0270 

REP 

2 

lAST 1220 

26,3626 

14021 1 

STCDL 

504LPL *2 

0271 

REP 

29 

LAST 1219 

26,3627 

15332 1 


Hl6®R03 

0272 

REP 

3 

cast 1220 

28,3630 

24023 0 

SIXVL 

504LPL +4 

0273 

HEP 

4 

LAST 1220 

26,3631 

00017 1 


S04LrPL 

0274 




28,3832 

77616 0 

IMi 
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. FUWBIARY INBRTIAL ORIOWTICM USSEkS PAGE NO. 9 Bq S 3 

■0215 OOMSBWTS AND ERASAaE ASSItJWBTTS 


•m 

MB' 

•5 

lAST 1210 

04,3453 



iBl 

S 

dpi/2 

1 SCALED B-1 



•m 





26,3633 

1TTT5 

1 

COSI 

2Pec 

.99964115 B 

-1 COSCl DBG 32.1 MIN) B-l 



•m 





26,3634 

01734 

0 







•m 





26,3635 

00333 

1 

StNI 

2pec 

.02878760 B. 

-1 SINIl DBG 32.1 MIN) B-i 



•2T8 





26,3638 

16153 

1 







eZT9 

IH' 

38 

LAST 

1163 

0050 



BPHBXIT 

s 

Si 

B-TO-RP AND RP-TO-R SUBH EXIT 


9280 

HEP 

13 

LAST 

1212 

0051 



EARMta 

= 

S2 

EAKI»«(,MOCmc SUBH. EXITS 



0281 





0000 



504RPR 

= 

OD 

6 IBOS R OR RP vector 



0282 





0010 



SINNQOI 

S 

8D 

2 SIN(NODI) 



0283 





0010 



iVBCro 

S 

eD 

8 D vector MOCH 



0284 





0010 



cvectr 

S 

8D 

6 C VBCm MOCH 



0285 





0022 



504AZ 

s 

ibd 

2 AZ 



0280 





0016 



TIMSt^M 

s 

I4D 

3 TD« SUB M (MOCK) ' 

T+TO 

IN (3ETOZ 

028T 





0016 



504LPL 

•S 

I4D 

6 L OR LP vector 



0288 





0024 



AvBCTR 

s 

20D 

8 A vector (MOCN) 



0289 





0032 



bvbcmr 

■ = 

28D 

8 B vector (MOCN) 



0290 





0024 



f*4\raix 

S 

20D 

18 M mTRIX 



0291 





0040 



CCB 

2 

32D 

2 (»S(B) B-i 



0292 





0042 



SOB 

2 

34D 

2 SINCB) B-i 



0293 





0006 



504P 

2 

6D 

2 P (MOCN) 



0299 





26,3637 

77665 

1 

NOtXXJT 

2pec 

-.457335143 

B-2 REVS/CSEC B,.28=-1 .07047016 

E-8 

RAD/SEC 

029T 





26,3640 

42175 

1 







0298 





26,3641 

22211 

0 

FOOT 

2DGC 

.570862491 

RBVS/CSC B+27= 2.67240019 

E-6 

RAD/SEC 

0298 





26,3642 

00265 

0 







0299 





26,3643 

77777 

0 

BOOT 

2DGC 

-3.07500412 

E-8 BBVS/CSEC B+28=-7. 19756666 

E-14 

HAD/SEC 

0299 





26,3644 

77767 

1 







0300 





26,3645 

41215 

1 

NO) 10 

2PGC 

-.980101269 

REVS B-0 =-6.03249419 

RAD 


0300 





26,3646 

66331 

0 







0301 





26,3647 

15237 

0 

PSUBO 

2DEC 

.415998375 

REVS B-o = 2.61379488 

HAD 


0301 





26,3650 

26751 

0 







0302 





26,3651 

02052 

1 

BSUBO 

2DGC 

.0651205008 

HEVS B_o = 0.409164173 

RAD 


0302 





28,3652 

357 1 3 

1 







0303 





28,3653 

37116 

0 

WEARTH 

2DGC 

.973561855 

BEVS/CSEC B+23=7. 29211515 E-5 RAD/SEC 

0303 





26,3654 

32630 

0 










20’35 OOT. 28,1968 SATRAP .OOT PACE 1222 


ASSSCKE RBVISION 249 OF AOC PROGRAM COLOSSUS BY NASA 2021111-041 
1BAS(JIS94BMT INCORPORATION 


USBRoS PAGE NO. 


INOORPl — PERFORMS THE SIX DIMffllSICNAL STATE VECTOR DEVIATICN FOR POSITI 
ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATICN OP POSITICN.VELOCITY A 
W RADAR OB landmark BIAS.THE OUTPUT OP THE BVECTOR ROUTINE ALONG WITh’t 
HE ERROR TRANSITKW MATRIX! W) ARB USED AS INPUT TO THE ROUTINE. THE DEVIA 
Ticw IS obtained by Computing an estimathj tracking ieAsuES<ENT from the 
(XEBSIT state vector and CCMPARING it with an actual tracking MEASURaei 

T AND APPLYING A STATISTICAL WEIGHTING VECTOR 
INPUT 

MaiFLO = 0 6DIMENSICNAL BVECtOR i= gOI^BISIaNAL 
W = ERROR transition MATRIX 6X6 OR 9X9 
variance = VARIANCE (SCALAR) 

DELTAO = ^EASURH) DEVIATICNC SCALAR) 

BVECTOR = 6 OR 9 DIMBJSICNAL BvECtOR 


OUTPUT 

DELTAX = STATE VECTOR DEVIATIONS 6 OR g DI®JSICNAL 

ZI = vector used for the incorporation 6 Or 9 DIi'>B4SICNAL 

GAM4A = SCALAR 

CWXIA = OMEGA WEIGHTING VECTOR 6 OR g DI}®rTICNAL 
CALLING sequence 
L CALL INCORPi 


H0021 normal Exit 


B0022 L*1 OF CALLING SEQUENCE 


0023 





37,3676 




bank 

37 

0024 

REF 

1 



36,2000 




SETLOC NEASINC 

0025 





36,3250 




bank 


0026 

REF 

1 







COUNTS s$/INCOR 

0027 

REP 

57 

LAST 

624 

E5,1400 




EBANKr 

w 

0028 





38,3250 

T7620 

0 

INCORPI 

sro 


0029 

REP 

10 

LAST 

576 

36,3251 

0231T 

0 



EGRESS 

0030 





36,3252 

66370 

0 


>XT,1 

SSP 

0031 





36,3253 

00066 

1 



54D 

0032 

REF 

39 

LAST 1221 

36,3254 

00051 

0 



Si 

0033 





38,3255 

00022 

1 



180 

0034 





36,3256 

66374 

1 


AXT,2 

SSP 

0035 





36,3257 

00022 

1 



ISD 

0036 

REF 

14 

LAST 

1221 

36,3260 

00052 

0 



32 

0037 





36,3261 

00006 

1 



6 

0038 





36,3262 

63775 

1 

Z123 

VtXWD 

t^xsr* 

0039 

REP 

20 

LAST 

616 

36,3263 

03502 

0 



BVECTOR 

0040 

REP 

58 

LAST 

1222 

36,3264 

02467 

0 



W *540,1 

0041 

REF 

2 

LAST 

95 

36,3265 

12745 

1 


STORE 

ZI *180,2 

0042 





36,3266 

77775 

1 


VLOAD 


0043 

REF 

21 

(AST 

1222 

36,3267 

03510 

0 



BVECTOR *6 




IXl = 54 Sir IB 


1X2 = 18 SZ=6 


BvEC>T0R (0) 


bvbotob I:i) 


m 






ill 


ASSMIB REVI3ICW 249 OP AOC PROGRAM COLOSSUS BY NASA zmUl-041 

WAsuRserr inodbpohatiom 


0044 




36.3270 

52717 1 


ItCV* 

ABAD* 

0045 

HBP 

59 

LAST 1222 

36.3271 

02555 0 



W «108O,l 

0046 

REF 

3 

LAST 1222 

38,3272 

75032 1 



W *180,2 

004T 

REF 

4 

LAST 1223 

38.3273 

12745 1 


STQBC 

Zt *180,2 

0048 




38.3274 

77775 1 


warn 


0049 

REF 

22 

last 1222 

36.3275 

03516 0 



■ifflCTOH *120 

0050 




36.3276 

52717 1 


I6(V* 

«AD* 

0051 

REP 

60 

LAST 1223 

36.3277 

02643 1 



» *1620,1 

0052 

REF 

5 

LAST 1223 

36,3300 

75032 1 



» *1B0,2 

0053 

REP 

6 

LAST 1223 

38.3301 

12745 1 


SIQBB 

XI *180,2 

0054 




38.3302 

77700 0 


TIX.1 


0055 

REF 

1 


38,3303 

75304 1 



WCORl 

0056 




38.3304 

43104 0 

IMCORi 

TTX.2 

BCH 

005T 

REF 

1 


36.3305 

7526 2 0 



X123 

0058 

REF 

8 

LAST 617 

38,3306 

02706 1 



neAFLG 

0059 

REF 

1 


38.3307 

75313 1 



nCCRlA 

0060 




36.3310 

77775 1 


VLORD 


0061 

•REF 

20 

LAST 624 

38.3311 

15332 1 



tfEKVECS 

0062 

REF 

7 

LAST 1223 

38.3312 

02737 0 


STOBE 

XI *120 

0063 




36.3313 

77201 1 

INCORiA 

SETTO 

VL(MO 

0064 




36.3314 

00001 0 



6 

0065 

REF 

8 

LAST 1223 

38,3315 

02723 0 



XI 

0066 




36.3318 

47036 1 


VSQ 

■IB 

006T 

REF 

7 

LAST 873 

38,3317 

45562 1 



TMCDE 

0068 




36,3320 

47515 0 


PDVL 

V33 

0069 

REF 

9 

LAST 1223 

36,3321 

02731 0 



XI *6 

OOTO 




38,3322 

76 234 0 


RIB 

■no 

OOTl 

REF 

8 

LAST 1223 

36,3323 

45562 1 



TIMODE 

OOT2 




36,3324 

47515 0 


PIM, 

VSO 

0073 

REF 

10 

LAST 1223 

36,3325 

02737 0 



XI *120 

0074 




36,3328 

76234 0 


RIB 

-BD 

0075 

H0F 

9 

LAST 1223 

36,3327 

45562 1 



hmcde 

0076 




36,3330 

77171 0 


TAD 

«t,2 

6077 

REF 

12 

LAST 617 

36,3331 

03526 0 



voaiANCB 

0078 




36,3332 

00000 1 



6 

0079 

REF 

1 


38,3333 

01257 0 


STOBE 

TBIPA 

0080 




36,3334 

40151 0 


TLOW 

BOr 

0081 

REF 

13 

LAST 1223 

38,3335 

03526 0 



WlalANCB 

0082 




36,3336 

75337 1 



*1 

0083 

REF 

1 


36,3337 

01262 0 


STOiffi! 

TEflVAR 

0084 




38,3340 

77654 0 


BzE 


0085 

REF 

1 


38,3341 

7535 0 0 



MCDRiC 

0086 




38,3342 

40112 1 

INCORiB 

SL2 

RV 

0087 

REF 

2 

LAST 1223 

36,3343 

75350 0 



WIORlC 

0088 

REF 

2 

LAST 1223 

36,3344 

0126 2 0 


STORE 

TfMPVAR 

0089 




38,3345 

52114 1 


incr ,2 Gtiro 

0090 




36.3346 

00001 0 


DBC 

] 

0091 

REF 

1 


36.3347 

7534 2 0 



HCORiB 

0092 




30,3350 

61551 1 

INCORiC 

'IWWD 

pcm> 

0093 

REF 

2 

LAST 1223 

36,3351 

01257 0 



ISilPA 


20'35 OCT. 28.1968 SAIRAP .DOT PAOB 1223 
USfeS PAOB MO. 2 es S3 


BvBCIQR (2) 

B(0)4»>B(i)*(V4.54)>B(2)*CV4.108)PIRST PAS 
21 THBI 22 THEN 23 


LOOP FOR 21,22,23 


ZI*2 + 22*2 + 23*2 ♦ VARIANCE 
CLEAR OVFLND 

TE4P STORAGE FOR VARIANCE 






Ill 


*S»«LR HBVISIQN 249 OP AOC PBOQBAM COLOSSUS BY NASA 2021111-041 
INOCBPORATICN 


0094 




38,3352 

T5405 1 

CMP 

aC3RT 

0095 


3 

LAST 1223 

36,3353 

0126 2 0 


»«VAH 

0090 




38,3354 

T625T 0 

SIJ* 

WD 

009T 




38,3355 

57576 1 


0-2 

0090 


3 

WST 1223 

36,3356 

01257 0 


TRIPA 

0099 




38,335T 

63101 1 

NORM 

INCR,2 

9100 


2T 

last 1091 

36,3360 

00050 1 


X2 

0101 




38,3361 

TTTTS 1 

DEC 

-2 

0102 




38,3362 

77134 1 

SKA, 2 

AxT,2 

0103 


2 

LAST ST 

38,3363 

02215 0 


HCmCMM 

0104 




38,3364 

00242 0 


1620 

0105 




36,3365 

40265 1 

BDCV 

SBTTD 

0100 

HP 

4 

LAST 566 

38.3366 

15322 0 


DP1/4TH 

OlOT 




36,3387 

00001 0 


0 

0100 

HP 

2 

last 119 

38,3370 

03456 0 

STQE« 

QAiW 

0109 




38,3371 

6035 1 0 

TU»D 

MOEM 

0110 

HP 

4 

last 1224 

38,3372 

01257 0 


IRIPA 

0111 

wr 

SO 

last 1163 

38,3373 

00047 1 


XI 

0112 




38,3374 

65345 0 

DLO\D 

POOL 

0113 

HP 

049 

last 1218 

38,3375 

00155 0 


MPAC 

0114 

HP 

5 

last 61T 

36,3378 

03524 1 


DEL'D^O 

0115 




38,3377 

77701 1 

NOEM 


0110 

W 

40 

last 1222 

38,3400 

00051 0 


Si 

OUT 




38,3401 

70460 1 

X9U,1 

SRl 

Olio 

HP 

41 

last 1224 

38,3402 

00050 1 


31 

0119 




38,3403 

41471 0 

DfV 

PU91 

01193 




36,3404 

T7650 1 

GOTO 


01190 

HP 

1 


38,3405 

77676 0 


NEWZCCMP 

0120 




38,3406 

77731 1 -3 

SSP 


0121 

80^ 

15 

LAST 1222 

38,3407 

00052 0 


S2 

0122 




38,3410 

00066 1 


SAP 

0123 




38,3411 

60775 1 INCQR 2 

VLOVD 

YXM+ 

0124 

HP 

11 

last 1223 

38,3412 

02723 0 


Zl 

-0125 . 

..HP 

01 . 

.LAST 1223 

36,3413 - 

- 75134 0 


w ^1620, 2 

0120 




36,3414 

77206 0 

PU9f 

VLCW> 

012T 

HP 

12 

last 1224 

38,3415 

02731 0 


Zl +6 

0120 




36,3418 

53303 1 

V)W 

VAO 

0129 

UP 

02 

last 1224 

38,3417 

75112 1 


w •►180r>,2 

0130 




36,3420 

77206 0 

puaf 

VLO«) 

0131 

HP 

13 

last 1224 

36,3421 

02737 0 


zl + 12 D 

0132 




36,3422 

53303 1 


VAD 

0133 

HP 

63 

last 1224 

36 , 3423 

75070 1 


P ♦198^,2 

0134 




36,3424 

61006 0 

puaf 

Tlx, 2 

0135 

RHP 

1 


36,3425 

75411 1 


INCOR2 

0130 




36,3426 

45575 1 

VUWD 

SlttDH 

013T 

HBP 

2 

last 119 

36,3427 

74303 1 

STORE 

QAEXjA + 12 D 

0130 




36,3430 

45575 1 

vLoy> 

SIADR 

0139 

REP 

3 

last 1224 

36,3431 

74311 1 

STORE 

CMEGA +0 

0140 




36,3432 

45575 1 

VU»D 

ST!U>R 

0141 

REP 

4 

last 1224 

36,3433 

74317 1 

STORE 

Q^OA 


20 ’35 OCT. 28,1968 SATRAP .OOT PAOB 1224 
USBRcS PACE NO. 3 BS S 3 


NCJWALIzATICN count -2 POR □A.^MA 


PD 0-1 = norm (A) 


PD 0-1 = DELWO/A 

CCMPure CPeQAi,2,3 


PO 2-7=C>eGAi,8-13=CMEC»Z,14-19=Q«GA3 




i 




ASS&BLB (BVISIOH 349 OP AOC PflOGRAM CQUJSSira By MAS* 2021111-041 

^*Aa^»B^of^ incorpobaticn 


0142 

0143 

REP 

9 

IAST 1223 

0144 

I«F 

1 


014S 

REP 

21 

IAST 1223 

0146 

REP 

5 

IAST 1224 

014T 

0148 

0149 

REP 

16 

IAST 1224 

0150 

0151 

0152 

REP 

6 

last 1225 

0153 

0154 

0155 

0156 

REP 

12 

LAST 81T 

015T 

0158 

REP 

1 


0159 

REP 

13 

LAST 1225 

0160 

0161 

US' 

14 

last 1225 

0162 

0163 

REP 

11 

LAST 1222 



38,3434 

77214 0 

Bor 

VLOVD 

38,3435 

02706 1 



38,3436 

75441 1 


INC0R2AB 

36,3437 

15332 1 


2BBCVECS 

36,3440 

03474 0 

STORE 

oeoA +12D 

36,3441 

66374 1 

INC0R2AB AXT,2 

SSP 

38,3442 

00022 1 


18D 

36,3443 

00052 0 


S2 

36,3444 

00006 1 


8 

38,3445 

77773 1 

INCQR3 VLQAD4 


36,3446 

74275 1 


+18D,2 

38,3447 

53761 1 

VX3C 

VSAt 

36,3450 

00001 0 


0 

36,3451 

20201 0 


0,1 

38,3452 

11301 0 

STORE 

DELTAx +18D,2 

38,3453 

77304 0 

TIX,2 

VLQAD 

36,3454 

75445 0 


D)C0R3 

36,3455 

01265 1 


DELTAX +6 

36,3456 

77732 1 

VSL3 


36,3457 

01265 1 

STORE 

DELTAX +6 

36,3460 

77650 1 

GOTO 


36,3461 

02317 0 


BOTESS 


20’35 OCT. 28,1968 SATRAP 
OSER.S PAOB NO. 4 


DELTOQ/A 



I 
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USBBaS PACE NO. 


INO0RP2 -incorporates THE CCMPUIBO STATE VECTOR DEVIATIONS INTO THE 
ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY ffi FOR EITHER THE 
LB4 C« THE CS4 .determined BY FTAO VHIUPPIjO.IZBRO = 104) <1 = CS4) 

INPUT 

PERMANENT STATE VECfTOR FOR EITHER THE L04 OR Ca4 
vaiUPFUJ = update VSIICLE 0=104 l=Ca4 
W = ERROR TRANSITION MATRIX 

DBLTAX = (XMPUIED STATE VECTOR DEVIATIONS 

DMENPUJ = SIZE OP W MATRIX (ZERO =6X6) <1=9X9) 

OAMMA = SCAIAR FOR INCORPORATION 

Zl = vector UfflD IN INCORPORATION 

<»«» = WEIGHTING vector 

ounvr 

updated permanent state vector 

CALLING SEauaiCE 
1 CALL INCOHP2 

NORMAL EXIT 

L+l OP CALLING SEQU0fCE 


0182 

REF 

1 



36,20 00 




ffiTLOC hBASlNCi 

0183 





36,3462 




bank 


0184 

REF 

■ 2 LAST 1222 TO 

1226’ 

138 138* 


COUNT* js/INCCR 

0185 





36,3462 

45020 

1 

mCOHP2 

SlU 

CALL 

0186 

REF 

12 

LAST 

1225 

36,3463 

02317 

0 



EGRESS 

018T 

REP 

21 

LAST 

868 

36 , 3464 

27371 

1 



INTSTALL 

0188 





36,3465 

74375 

0 


VLOAD 

VXSC 

0189 

REP 

T 

LAST 1225 

36,3466 

03460 

0 



(MEGA 

0190 

REF 

3 

lAST 

1224 

36,3467 

03456 

0 



GAMAA 

0191 

•REP 

2 

LAST 

95 

36,3470 

266 43 

1 


STOfL 

OEQAMl 

0192 

HEP 

8 

LAST 

1226 

36,3471 

03466 

0 



CMBGA ^ 

0193 





36,3472 

77761 

1 


VXSC 


0194 

REP 

4 

lAST 

1226 

36,3473 

03456 

0 



GAMAA 

0195 

REF 

2 

lAST 

95 

36,3474 

26651 

1 


STOVL 

CMBQA.M2 

0196 

REP 

9 

LAST 

1226 

36,3475 

03474 

0 



OEGA +12 

019T 





36,3476 

77761 

1 


VXSC 


0198 

REP 

5 

LAST 

1226 

36,3477 

03456 

0 



GAMAA 

0199 

REF 

2 

LAST 

95 

36,3500 

02657 

1 


STORE 

<MBGAM3 

0260 





36,3501 

77776 

1 


EXIT 


0201 

REP 

1 



36,3502 

3 3763 

0 


CAP 

54DD 

0202 

REF 

2 

LAST 

78 

36,3503 

55«252 

1 


TS 

WlXA 

0203 

REF 

2 

LAST 

78 

36,35 04 

55«253 

0 


TS 

WlXB 

0204 

REF 

249 

LAST 

1201 

36,35 05 

3 4714 

1 


CAP 

zero 

0205 

REP 

2 

LAST 

78 

38,3506 

55«254 

1 


TS 

ZlXA 

0206 

HEP 

2 

LAST 

78 

36,3507 

55«255 

0 


TS 

ZIXB 

620T 

REP 

91 

LAST 

1051 

36,35 1 0 

0 5301 

0 

FAZA 

TC 

PHASOING 


CALC. GA^MA * C)®GAi,2,3 




INITIAI. IX 1 SETTING FOR W MATRIX 


INITIAL IX 2 SETTING FOR Z CCMPCNENT 





! BBVISKK 249 OP AQC PBQ<»MM COU8SUS BY MASA 2021111-041 

MBAanawr inoorporatign 



0208 




38,3511 

04022 0 

OCT 

04022 

0209 

■NP 

48 

•LAST 783 

38,3512 

0 5435 0 

TC 

UPFLAG 

0210 


2 

last 503 

36,3513 

00236 0 

adrbs 

RBINTPLO 

0212 

BF 

3 

lAST 1226 

36,3514 

3 1253 1 FAZAl 

CA 

wixa 

0213 

OB' 

3 

LAST 1228 

38,3515 

55«252 1 

T3 

WIXA 

0214 

BBF 

3 

IAST 1226 

36,3516 

3 1 255 1 

CA 

TIXB 

0215 

BF 

3 

lAsr 1226 

36,3517 

55«254 1 

TS 

ZIXA 

0210 

BF 

228 

lAST 1098 

36,3520 

0 6006 1 

TC 

INTPRET 

021T 




36,3521 

73150 1 

LXA.i 

LXA,2 

0218 

BF 

4 

last 1227 

36,3522 

0125 2 0 


WIXA 

0219 

SBF 

4 

lASP 1227 

38,3523 

01254 0 


ZIXA 

0220 




36,3524 

70731 0 

SSP 

DLOUMi 

0221 

BF 

42 

LAST 1224 

36,3525 

00051 0 


Si 

0222 




36,3526 

00006 1 


6 

0223 

BF 

14 

lASr 1224 

36,3527 

75054 1 


Zl,2 

0224 




36,3530 

60276 1 

DCCMP 

NOB 

0225 

BF 

17 

last 1225 

36,3531 

00052 0 


S2 

0228 




36,3532 

65161 1 

vxsc 

XCHx,2 

022T 

BF 

3 

last 1226 

38,35 33 

02643 1 


CMBa\Ml 

0228 

BF 

18 

last 1227 

36,3534 

00051 0 


S2 

0229 




36,3535 

57144 1 

LXC,2 

XAD,2 

0230 

BF 

28 

LAST 1224 

36,3536 

00047 1 


X2 

0231 

BF 

3 

last 1224 

36,3537 

02215 0 


N0[M»M 

0232 




38,3540 

65057 0 

vsu* 

X<3IX,2 

0233 




38,3541 

57576 1 


0,2 

0234 

BF 

19 

LAST 1227 

38,3542 

00051 0 


S2 

0235 




38,3543 

77653 1 

VAD4 


0238 

BF 

04 

last 1224 

36,3544 

02467 0 


W +54D,1 

0237 

BF 

2 

LAST 95 

36,3545 

02665 0 

STORB 

HOLDw 

0238 




38,3546 

57543 1 

DCCMP 

0239 

BF 

IS 

last 1227 

38,3547 

75054 1 


2;l,2 

0240 




36,3550 

74301 0 

NOW 

VXSC 

0241 

■BF 

20 

lASr 1227 

36,3551 

00052 0 


S2 

— 0242 

-BBP . 

. ^ 

lASr 1228 

36,3552 

02651 1 


QAFG4M2 

0243 




38,355 3 

71124 b 

XC«X,2 1J(C,2 

0244 

OBF 

21 

last 1227 

36,3554 

00051 0 


32 

0245 

BKF 

29 

last 1227 

36,3555 

00047 1 


X2 

0240 




36,3556 

53674 1 

XAD,2 

VSL* 

0247 

BF 

4 

LAST 1227 

36,3557 

02215 0 


NOMSAM 

0248 




36,3560 

57576 1 


0,2 

0249 




36,3561 

52724 1 

XCHX,2 

VADFt 

0250 

BF 

22 

LAST 1227 

38,356 2 

00051 0 


S2 

0251 

BBF 

05 

LAST 1227 

36,3563 

02555 0 


W +1080,1 

0252 

BF 

3 

last 1227 

36 , 3564 

02673 1 

STORE 

HOLDW +6 

0253 




36,3565 

77814 1 

BOFV 


0254 - 

BBF 

10 

LAST 1225 

36,3566 

02746 0 



0255 

BBF 

1 


36,3567 

75807 1 


FAzfl 

0250 




38,3570 

57543 1 

DLOAD4 DCCMP 

0257 

BBF 

10 

LAST 1227 

36,3571 

75054 1 


Zl,2 

0258 




36,3572 

74301 0 

NORM 

VXSC 


20 ’35 OCT. s,1968 SATRAP .OOT PAOE 1227 
OOkS BVS NO. • 1^ S3 


start first IHASB CP tNC0RP2 
TO unuis S OR 9 DW. W mTBIX IN TH>IP 


CALC vnea . 3x9 partiticw op w matrix 


CALC MEBLE 3K9 PARTITION OF w MATRIX 


Branch if c dl'Cnsicnal 

CALC IXXffia 3*9 partiticn of w matrix 




AS3»«£ HEVISICW 249 OP AOC PRO0EWM COLOSSUS BY NASA 2021111-041 


»«ASUHBtNT INOORFORATICN 


20’35 OCT. 28,1968 SATBAP .OOT PAGE 1228 




USSIUS PACE NO. T KS S3 


23 LAST 122T 
3 LAST 1226 


24 LAST 12Sj 
30 LAST 1227 


last 1227 


BEP 25 LAST 1228 
HEP 66 last 1227 
HEP 4 LAST 1227 


LAST 617 


HEP 5 
BH' 1 
REP 4 
HEP 5 
HEP 2 
HEP 4 


last 1227 


last 1227 

last 1227 

LAST 186 
last 1227 


IBP 229 LAST 1227 


HEP 6 LAST 1228 
HH' 43 LAST 1227 


HEP 5 LAST 1228 
HEP 67 LAST 1228 


HEP 6 LAST 1228 
HEP 68 LAST 1228 


HEP 11 last 1227 
HEP 1 

HEP T LAST 1228 
HEP 69 LAST 1228 


HEP 1 


HEP 1 


HEP 5 LAST 1228 
HEP 1 


HEP 2 LAST 1228 
HEP 1 


HEP 19 LAST 1228 


36.3573 

36.3574 

36.3575 

38.3576 

36.3577 

36.3600 

36.3601 

38.3602 
36,3803 

36.3604 

36.3605 

38.3606 

36.3607 

36.3610 

36.3611 

36.3612 

36.3613 

38.3614 

36.3615 

36.3616 

36.3617 

36.3620 

36.3621 

36.3622 

36.3623 

36.3624 

36.3625 

36.3626 

36.3627 

36.3630 

38.3631 

36.3632 

36.3633 

36.3634 

36.3635 

36.3636 

36.3637 

36.3640 

36.3641 

38.3642 

36.3643 

38.3644 

36.3645 

36 . 3646 

38.3647 

36.3650 

36.3651 
36,365 2 

36.3653 

36.3654 


00052 0 
02657 1 
71124 0 
00051 0 
00047 1 
53674 1 
02215 0 
57576 1 
52724 1 
00051 0 
02643 1 
02701 0 
77824 1 PAZB 
56741 0 
77778 1 

3 1 25 2 0 PAzBl 

6 3764 1 
55«25 3 0 
3 1254 0 
6 7715 0 
55«255 0 
0 6006 1 
66 350 1 
01252 0 
00051 0 
00006 1 
77775 1 
02665 0 
06467 1 
. 77775 1 
02673 1 
06555 1 
77214 0 
02748 0 
75645 1 
02701 0 
06643 0 

52100 1 PAzBz 
75643 1 
75653 0 
776 34 0 
75510 1 

43335 0 PAzBs 
01256 1 


XLJ«,2 


XCHX.Z 


S2 

(>ea4M3 

LJ(C,2 

S2 

X2 

VSLA 

NQBMCUM 

0.2 

VAD4 

S2 

• *1620,1 
HODW +120 


09P2fC 


WlXA 

SCO 

WIXB 

ZIXA 

MINUS2 

ZIXB 

INTPHET 

3SP 

»IXA 

Si 

6 


START 2fro PHASE CP INC0HP2 TO TRANSFER 
TB4P HBG TO PBFM w MATRIX 


HCLTW 

R *540,1 


HCUVt *6 
W *1080,1 
VLQAD 
DMENPTO 
PAZBs 

HCLOir *120 
» *18^0,1 
GOTO 
*2 

raze 




OCNE WITH W MATRIX. UPDATE STATE VECTOR 


01256 1 
35766 0 
52030 0 
75653 0 
75640 1 
77624 1 
58741 0 


GHP2PC 










Assets revision 249 op AOC PRQQI^ colossus ffif NASA 2021111-041 
L ICASURBBiT INCORPOBATION 


20 ’35 OCT. 28,1968 SAISAP .OOT PAOB 1229 
USBIWS PACE NO. 8 ^ S3 


•309 




36,3655 

53375 0 

VUMD 

1 VAD 

•310 

BEP 

8 

LAST 000 

38,3856 

01701 0 


X789 

•311 

8BP 

IS 

last 1225 

36,3657 

01273 0 


dbltax + 12 D 

•312 

RBP 

2 

last 119 

36,3660 

03450 0 

STORE 

1X789 

0313 




36,3661 

47014 1 

BCN 

RIB 

0314 

BBP 

13 

last 017 

38,3662 

00707 1 


VBXJPFLO 

•315 

RES' 

1 


36,3663 

75753 1 


Dec 94 

•31« 

RES' 

1 


38,3664 

26745 0 


MCVEPLRM 

•31T 




38,3665 

77004 0 PAzAfl 

BIVB 

AXT,2 

•3ia 

IBP 

9 

last 879 

36,3666 

57343 1 


ksmnzio 

•319 




38,3667 

00000 1 


0 

•320 




38,3670 

77014 1 

BCFP 

AXT,2 

0321 

BBP 

8 

LAST 573 

38.3671 

04343 1- 


MOCNTHIS 

•322 




36,3672 

75674 0 


♦2 

•323 




38,3673 

00002 0 


2 

•324 




38,3674 

53775 1 

VLOAD 

VSR4 

•325 

RBP 

16 

last 1229 

38,3675 

01257 0 


dbltax 

•320 




38,3676 

57205 1 


0 -7,2 

•32T 




38,3677 

40055 0 

VAD 

BOV 

•328 

BBP 

4 

last 284 

38,3700 

01521 0 


TDELTAV 

•329 

ter 

1 


36,3701 

75713 0 


PA 2 AB 1 

•330 

ter 

5 

LAST 1229 

36,3702 

25521 0 

STCVL 

TDBLTAV 

•331 

RBP 

17 

LAST 1229 

36,3703 

01265 1 


Da,TAX +6 

•332 




36,3704 

53257 1 

vsiw ■ 

VAD 

•333 




36,3705 

57202 0 


0-4,2 

•334 

RBP 

4 

LAST 285 

36,3706 

01527 0 


TNUV 

•335 




38,3707 

77600 1 

BOV 


•338 

RBP 

1 


36,3710 

7S717 1 


PAZAB2 

•33T 

BBP 

5 

last 1229 

38,3711 

355 27 1 

SlCALL TNUV 

•338 

BBP 

1 


36,3712 

75728 0 


PAzAfl3 

•339 




36,3713 

5 3375 0 PA 2 AB 1 

VLOAD 

VAD 

•340 

BBP 

12 

LAST 868 

38,3714 

01535 0 


HCV 

•341 

BBP 

18 

LAST 1229 

38,3715 

01257 0 


dbltax 

•342 

RBP 

13 

LAST 1229 

38,3716 

01535 0 

STORE 

HCv 

•343 




38,3717 

53375 0 PAZAH2 

VLOAD 

VAD 

•344 

BBP 

11 

LAST 868 

36,3720 

01543 1 


VCv 

•345 

BBP 

19 

LAST 1229 

36,3721 

01265 1 


dbltax +6 

•348 

BBP 

12 

LAST 1229 

36,3722 

01543 1 

STORE 

vtv 

•34T 




36,3723 

45134 0 

S)CA,2 

CALL 

0348 

BBP 

3 

LAST 259 

36,3724 

02150 1 


PBODY 

•349 

BBP 

1 


36,3725 

23344 0 


BECTIPY 

•3491 




38,3728 

77624 1 FAZAB 3 

CALL 


03492 

BBP 

20 

last 1228 

38,3727 

56741 0 


(aiP2PC 

•350 




38,3730 

47014 1 

BCN 

RIB 

•351 

BBP 

14 

LAST 1229 

36,3731 

00707 1 


vamPFLG 

0352 

BBP 

1 


36,3732 

75758 1 


DOC 941 

0353 

RBP 

1 


36,3733 

28724 1 


MOfEAUW 

0354 




36,3734 

77624 1 

CAIL 


0355 

BBP 

2 

LAST 259 

36,3735 

20263 1 


SVDWN2 

•358 




36,3736 

77624 1 FAZAB 4 

CAU. 



START 310 PHASE OP INC0RP2 
TlH,8'IH,9'IH,CCMPCNBrr OP STAIB VECTOR 
INCORPORATICN for XT89 


B27 IP MOON ORBIT, B29 IP EARm 


B5 IP MOCN ORBIT, Bt IP EARTH 


STORE DCWNIJNK STATE VECTOR 


I 


I 


AssaeLB RBvriSICN 249 op AOC PROKWM colossus B)f NASA 2021111-041 
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L iVAsuBBtarr incorporaticm 


035T 

RBP 

21 

■LAST 1229 

38,3T3T 

56741 

0 



G8P2PC 

0358 




36,3740 

77214 

0 


BOPP 

VLCMD 

0359 

REP 

12 

LAST 1228 

36,3741 

02746 

0 



oeiPLa 

0300 

RBE 

1 


38,3742 

75745 

0 



PAZABs 

0301 

REP 

3 

LAST 1229 

36,3743 

03450 

0 



TX789 

0382 

RB' 

9 

LAST 1229 

38,3744 

01701 

0 


STORE 

X789 

0383 




38,3745 

66150 

0 

PAzABs 

UCA.l 

SXA.l 

0304 

REP 

13 

LAST 1226 

38,3748 

02317 

0 



BQRESS 

0305 

REP 

20 

LAST 1168 

38,3747 

00052 

0 



QPHBT 

0300. 




36,3750 

77776 

1 


EXIT 


030T 

REP 

00 

last 1039 

36,3751 

0 4574 

0 


TC 

POSTJU4P 

0388 

RHE 

3 

LAST 024 

38,3752 

27406 

0 


CAOR 

intwake 

0389 




38,3753 

52034 

1 

DOC 94 

RIB 

GOTO 

03T0 

REP 

1 


38,3754 

26700 

1 



MOVEPCSM 

03T1 

RHP 

1 


36,3755 

75665 

0 



PAZAB 

03T2 




36,3756 

45034 

1 

DOCS41 

RIB 

CALL 

03T3 

REP 

2 

LAST 32 

38,3757 

26651 

1 



M0VBAC94 

03T4 

REP 

2 

LAST 259 

38,3760 

20237 

0 



a®»Nl 

03T5 




36,3761 

77650 

1 


ocno 


03T8 

HEP 

1 


36,3762 

75736 

1 



PAZAB4 

03TT 

HEP 

22 

last 1225 

26,3331 



ZEROO 

= 

2EROVECS 

03T8 




36,3763 

00066 

1 

54DD 

DEC 

54 

03T9 




38,3764 

77771 

0 

eDo 

DEC 

-6 

0380 




38,3765 

00014 

1 

1200 

DEC 

12 

0400 

HH' 

2 

last 562 

37,2000 




SETLOC Ra€«Z 

0401 




37,3676 




BA^C 


0402 

RHP 

1 






ca*n» 

l$/INCOR 

0403 




37,3676 

51575 

1 

NEWzCCMP VLCWD 

ABVAL 

0404 

HEP 

IT 

LAST 1227 

37,3677 

02723 

0 



Zl 

0405 

REP 

1 


37,3700 

24045 

0 


STOVL 

NOR4ZI 

0400 

RHP 

18 

LAST 1230 

37,3701 

02731 

0 



Zl *6 

040T 




37,3702 

41446 

1 


ABVAL 

puai 

0408 




37,3703 

50025 

0 


DSU 


0409 

RHP 

2 

LAST 1230 

37,3704 

00045 

0 



NCJWZI 

0410 




37,3705 

77710 

1 



♦3 

0411 




37,3706 

45545 

1 


Dcxno 

SWDR 

0412 

RHP 

3 

LAST 1230 

37,3707 

77732 

1 


STORE 

NQHMZI 

0413 




37,3710 

51575 

1 


VLCAD 

ABVAL 

0414 

REP 

19 

LAST 1230 

37,3711 

02737 

0 



Zl 41^ 

0415 




37,3712 

45206 

1 


PU9I 

DSU 

0416 

RHP 

4 

LAST 1230 

37,3713 

00045 

0 



NOHMZl 

041T 




37,3714 

71240 

1 



tXXWD 

0418 




37,3715 

77720 

1 



♦3 

0419 




37,3716 

77626 

0 


smoR 


0420 

HEP 

5 

LAST 1230 

37,3717 

77732 

1 


STORE 

NOHMZl 

0421 




37,3720 

66145 

1 


DLOID 

SXA,l 

0422 

REP 

8 

LAST 1230 

37,3721 

00045 

0 



NOW4ZI 

0423 

REP 

T 

LAST 1230 

37,3722 

00044 

1 



NORMZI 

0424 




37,3723 

62101 

0 


NOfW 

INCR.i 


USR>S PAOB NO. 9 
PHAffi CHANCE 


«S S3 




8 OlhBISICNAL 

9 DimtSICNAL 


BXIT 


STORE DCWNLINK SWTE VECTOR 



LAHra!ST ABVAL 


SAVE XI 
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0425 

RESP 

5T 

IAST 1224 

3T,3T24 

00047 1 


XI 

0428 




3T.3T25 

00002 0 

DEC 

2 

042T 




3T,3T28 

53775 1 

VUHO 

VSL* 

0428 

HEP 

20 

IAST 1230 

3T,372T 

02723 0 


ZI 

0429 




3T,3T30 

20201 0 


0,1 

0430 

REP 

21 

last 1231 

3T,3731 

26723 0 

STOVL 

zl 

0431 

REP 

22 

last 1231 

3T.3T32 

02731 0 


ZI 

0432 




3t,3733 

77657 0 

va* 


0433 




3T,3T34 

20201 0 


0,1 

0434 

REP 

23 

LAST 1231 

3T.3735 

26731 0 

STOVL 

ZI *s 

0435 

HEP 

24 

last 1231 

3T.3738 

02737 0 


ZI *120 

0438 




3T,3737 

66057 0 

VSL4 

SCA.l 

043T 




3T,3T40 

20201 0 


0,1 

0438 

REP 

8 

last 1230 

3T,3T41 

00045 0 


NOBMZI +1 

0439 

REP 

25 

last 1231 

3T,3T42 

02737 0 

STOE8 

Zl *120 

0440 




3T.3T43 

54150 1 

LXA.l 

XSU,1 

0441 

REP. 

8 

last 1228 

3T,3744 

02215 0 


NCRCWM 

0442 

HEP 

9 

last 1231 

37,3745 

00045 0 


NQRMZI +1 

0443 




37,3748 

77660 1 

XSO,l 


0444 

RS' 

TO 

last 1231 

37,3747 

00045 0 


NOiMZI ♦! 

0445 




37,3750 

70130 1 

acA.i 

LXC.i 

0448 

HEP 

T 

LAST 1231 

37,3751 

02215 0 


NOtMOAM 

044T 

REP 

11 

last 1231 

37,3752 

00045 0 


NOIWZI +1 

0448 




37,3753 

40270 0 

XAD.i 

®TPO 

0449 

tep 

12 

LAST 1231 

37,3754 

00044 1 


NCIWZl 

0450 




37,3755 

00003 1 


20 

0451 




37,3758 

77650 1 

GOTO 


0452 

HEP 

2 

LAST 1224 

37,3757 

75406 1 


1NCCR2 -3 

0453 




0044 

NQEWZI 

= 

360 


SAVE WIPT 


I 
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20 '35 OC?r. 28,1908 SATBAP 


-OOT 



L 

CONIC SlBBOUTINES 

U»US PAGE NO. 1 

EO S3 

POOOl 

PROGRAM DESCRIPTION - ENTIRE CCNIC SCflROUTINE LOO SECTION 

DATS - 1 SEPTBeER 

196T 

*0003 

HOD NO. - 0 

LOO section - COMIC 

SUBBCUTINES 

*0005 

HOD BY KRAUSE 

ASSaeLY - COLOSSUS REVISION 88 

*OOOT 

*0008 

functional description - 




R0009 THE FOLLOfflNQ SET CP SCPROfTINES SOLVE VARIOUS PROBLBIS INVOLVINO THE TBAJE(?rORY PRODUCED BY A CENTRAL 

*0011 INVERSE-SQUARE FORCE ACTING ON A POINT MASS, AS OUILINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SE(?riCN 
*0013 5. 5. 1.2. A GENERAL USAGE POINT-OP-VIEvr WAS TAKBL IN FORMULATING, EECHANIZING, AND SCALING THE SUBROUTINES, 

ROOIS rather than OPTIMIZING EACH FOB A PARTICULAR USE. THEREFORE, MULTIPLE USAGE C»N BE MADE OF THE SUBROUTINES 

HOOIT INVOLVING ANY REALISTIC SET OP CCNSTHAINT3. IT SHOULD BE NOIED THAT CNLY CNE SET OP CODING IS USED, WHETHER THE 

*0019 earth, MOON, (» ANY OIHER CELESTIAL BODY IS SPECIFIED AS THE (B^IHAL BODY OF THE PROBLH^, PROVIDED CNE OBSERVES 

*0021 THE INHERaiT SCALE CHANCE RBQUIRH) IN POSITICN, VELOCITY, MU, AND TI*, AS OUILINED IN MISSION PROtaWWING 

*0023 DEFINITION MEMO NO. 10. THIS CAN BE ACOCMPLIaiH) BY SIMPLY ADDING TO THE MHABIE AND INITIALIZING THE SUBROU- 
*0025 • TINES APPROPRIATELY. 

*0026 IXB TO THE UNIFORMITY OF THE EQUATIONS INVCLVHJ, CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND 

*0028 BLOQCS op EQUATICNS AS SUBROUTINES OF LOWER BANK WHENEVER POSSIBLE. AS A RESULT, THREE BY-PRODUCTS SUBROUTINES, 
*0030 directly usable as INDEparoaCT subroutines, were GBffiRATED. 

*0031 restrictions - 


*0032 THE ONLY LIMITATION IN THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUBROUTINE IS THE SCALING 

*0034 LIMIT OF EACH PAHA.MEIER AS SPECIFIED IN THE GSOP. THESE SCALING LIMITS WERE CHOSEN SO THAT ALL FEASIBLE THAJEC- 

*0036 TORIES COULD BE HANDLED. 

R003T SINCE THE SLBROUTINES (EXCEPT KEPLER) USE (XMMCN SUBROUTINES OP LOWER BANK WHICH USE ERASABLE OTHER THAN 

*0039 THE PUaiLIST (IXJE TO ITS LIMITED SIZE) AND CXMMCN INTERPRETIVE SWITCHES, THE CONIC SUBROUTINES CANNOT BE ALLOWED 
*0041 TO interrupt EACH OIHER. IT IS UP TO THE USER TO GUARANTEE THIS CCNDITICN. 

*0043 
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CONIC siBaouriNss 


r0044 

ROOAO 

110048 

ROOSO 

R0051 

R00S2 

R0a54 

ROOSO 

R00S8 

ROOOO 

R0002 

R0083 

R0005 

R00851 

R00053 

ROOOO 


PROGRAM DBsCRIPTICN - KEPLER SUBrOUTINB 
MOD NO. -1 
MOD BY KRAUSE 


USBR>S PAOB NO. 2 


- 11 OCTOBER 1987 . 

u» secticw - CcNic subroutines 

RBSSeUY - COLOSSUS 103 and SUNDANCB 222 


functional description - 

section - CIRCULAR, ELLIPTIC PARABa.IC HYPPRanTiC^Aci^n^,^® VECTOR. THE TRAJECTORY »1Y BE ANY CONIC 
USE OP THE SieROUTINE CAN Bs’EXTENDaD USIN^^^ pAiWI^MIB^ ™ ® 

INTBQDUCINQ any CODING CHANCES, ACCEPTING THE INHEH^^^pf^ ™ ^ UNABLE WITHOUT 

TICN TECHNIQUE IS UTILIZED IN THE CCMPUlftTICN tWlNGES IN POSITION AND VELOCITY. AN ITBHA- 

^ WILL SOL^ PW the B»tE WHICN WOUUI BE PROXlC® BY 


THE RESTRICtICNS ARE - 

WILL k H/ST be LESS THAN CNE PERIOD IN MALNITU*. IP GREATER, THE ONE-PERI®- SOUTKN 

ANY oI'tH^ lS^^ ™ 


CUESs!*^!^ CP THE 

PINAL CCNPUDAtICNS, PLUS .083 SECCNDS FOR EACH I^TICN. SECINDS POH INITIALIzATKN, .065 SECONDS FOR THE 


HEPEHSTCES - 

^ R-479, mission PR0GRA>«ING DEFINITION PB40 NO. lo. UNAR LANDING MISSION GSOP, SECTION 5.5. SGA 


INPUT - ERASABLE INITIALIZATION REQUIRED 


* SCALE FACTOR * 

VARIABL B4IN PQlERS OP ^ DESCRIPTION AND REMARcs 

RRECt ♦ 429 FOR EARTH40P INITIAL POSITION VEClOR'lN'i*!^ 

* +27 FOR MOON * 

VRECt ♦ +7 for earth *0P initial velocity VECTOR IN hETERS/CBTTISECCND 

* ♦S - FOR MOCN # 

" -,s ™ » "o*, 

TAU. * 428 4DESIRHD TRANSFER TIi« IN CENTISBCONDS ODP) 


I 


Jll 
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R0099 

ROlOl 

R0102 

lt0103 

ROIOS 

ROIOS 

ROIOT 

R0108 

ROIOO 

ROllO 

ROlll 

110113 

ROlll 

ROUS 

ROUT 

R0119 

R0120 

R0121 

R0122 

R0123 

R0124 

R0125 

R0126 

R012T 

R0128 

R0129 

R0130 

R0131 

R0132 

R0134 

R0136 

R013T 

R0138 

R0139 

R0140 


XKEPNEW * +17 tor EARDtWlBSS (P X IN lETBHS-TO-THB-CNB-HALP PBCM KBPPHEP 

* «16 tor mock 4(DP) 

TC * *28 AW PREY. VALUE (P TI* IN (SITISECS FRCM KBPPHEP 

XPBEV * +17 FOR EARTBAPHEVIOOS VALtB (P X IN l«IBR3-TO-'IHB-CHB-HAIJ' POBER PBCM KEPPRBP (DP) 

* ♦IB FC» MCXP AtDP) 

subboitines called - 

DELTI* 

cwiiiNO seobice and normal Exit modes - 


KEPRlN-2 goto 

KEPBTN-1 

KEPRlN 


KEPLER 


MJST be in interpretive MCDB A)® CVPIND MUST BE CLEAR 

HEIUIWS WITH ICPHEV IN MPAC. PL IS AT 0. 

corriNiE 


KEPLER MJST NOT C AUPD DIRECTLY SINCE AN INTEHHUPTICN CP IT WOULD DESTROY THE ERASABIES IT NEEDS TO CCMPLBlB 
THE INTERRUPTS) JOB. TKERETORE THE USER MIST CALL CSCCNIC OR LECCNIC WHICH GUARANTEES NO INTERRUPTS AND WHICH 
ALSO CALLS KEPPREP TO (XMPITIE A GtPSS OP XKEPNEW. 

ABORT EXIT MODES - 
NCNB 


OUTPUT - 

* SCALE FACTOR A 
VARIASBAIN POffERS OF 2A 


DBSCRIPTICH A1® IBiAncS 


BCv 

♦ 


♦ 

VCV 

♦ 


♦ 

TC 

♦ 

XPBEV 

* 


* 

FOR OTHER 


♦29 FOR EARIHAOP TERMINAL POSITION VECTOR IN METERS 
♦27 FOR moon a 

♦7 FOB EARTH AOP TERMINAL VELOCITY VECTOR IN EETEHS/CENTISEC 
+5 FOR MOON A 

♦28 AOP transfer TIME IN CENTISECS TO WHICH KEPLER CCNvEHfflD. 

♦17 FOR EARTHADP X IN METERS-TO-THE-CNE-HALF-POBER TO WHICH KEPLER CCNVEHtSD. 

♦16 for moon ACDP) 

FOR ODTER OUTPUT WHICH MAY BE OP USE, SEE DTORIS. 




DEBRIS 


PABA!«TERS which MIY BE CP USE 
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R014t 

R0142 

R0143 


♦ SCALE FACTOR ♦ 
VARIABLB^IN POWERS OP z* 
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description and rsaawcs 


*0144 ISRECr ♦ ♦! 40P UNIT VECTOR OP INITIAL POSITICN 

R6145 Hi ♦ *29 FOR EARm+OP MACNIIU* OP INITIAL POSITION IN ICMBRS 

♦ +27 FOR MOON * 


R0146 


M14T alpha * -22 FOR EARIH+OP INVERSE OP SBNMUOR AXIS IN 1/>BTEHS 
R0148 ** - 


R014S1 TMDDULO ♦ +28 


* -20 for moon ♦ 


R01483 


««4 «0. TO PRODUCE A 


R0149 

R0150 

R0152 


PARA(«TERS of no use - 

DP PARAMEIEHS - EPSILCNT, DELX, CELT. HQIOIN. XMODULO, PLUS PUSILIST REGISTERS 0 THRCUH 39D. 



I 


P0153 

R0155 

R015T 

R0159 

II0160 

Roiei 

R01«3 

R01S5 

HOIST 

R0169 

ROITI 

K01T2 

R01T3 

R01T4 

ROITS 

BOITT 

R01T9 

R0180’ 

IlOlBZ 

B0184 

R0185 

B018T 

R0189 

B0191 

110192 

110193 

110195 

B0196 

11019T 

110198 

110199 

110200 

80201 

80202 

80203 

80204 

80205 

80206 
80208 
80209 
80211 
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functional DESCRIPTION - 

THIS SUBROUTINE CAIAIAIBS THE INITIAL VELOCITY REQUIRED TO TOANSFBB A POINT-MASS ALONG A CWIC TRAJECTORY 
FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECTORY MAY BE 
A section of a circle, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USB OF THE 
SlOROUTINE CAN BB EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MJBABLE WITHOUT INTRODUCING ANY 
CODING changes, ACCEPTING THE INHERENT SCALE FACTOR CHAIKES IN POSITION AND VELOCITY. AN ITERATION TECHNIQUE IS 
utilized in the COMPUTATICN. 

THE restrictions ARB - 

1. rectilinear trajectories cannot be computed. 

2. AN accuracy DBTOADATICN CCCXJRS AS THE COSINE CP THE THJE ANOMALY DIFFERENCE APPROACHES +1.0. 

3. THE ANGLE BETWEBl ANY POSITICN VECTOR AND ITS VELAEITY VECTOR MUST BE GREATER THAN 1 DEffllEE 47.5 MINUTES 
and less than 178 DEGREES 12.5 MINUIES. 

4. negative transfer TI(« is A'BIGUCUS and will RESULT IN NO SOLUPICN. 

5. THE p aram eters 'IN THE PROBLEM MIST NOT EXCEED THEIR SCALMO LIMITS SPECIFIED IN THE GSOP. IF THE 

LIMITS are Exceeded, the resulting solution will be icANifCLEss. 

THE NU«EB op iterations. and, THEREFORE, THE CCMPUBATICNS SPEED IS DEPaTOBlT ON THE ACCURACY OF THE FIRST 
GUESS OF THE INDBPBOENT VARIABLE, COGA. THE AGO COMPUTATION TIh« IS APPRCNIMATE- 

LY .105 seconds FOR INITIALIZATION, .069 SECONDS FOR FINAL CCMPUBATICNS, PLUS .205 SECONDS FOR BACH ITERATION. 


REPBRBICES - 

8-479, MISSION PROGRAMMING DEFINITION fBMO NO. 
SQA ICMO 87-4. 

INPUT - ERASABLE INITIALIZATION REQUIRED 


10, UMAR LANDING MISSION GSOP-SECTICN 5 . 5 , SGA J«M0 67-8, 


dgscriptmn a® bemarcs 


* SCALE FACTOR * 

VARIABLE*IN POWERS OP 2* 

BlVBC ♦ +29 FOR EARTH+OP INITIAL POSITION VECTOR IN 1«TE8S 

* +27 for moon * 

R2VEC * +29 FOR EARTH+OP TARGET OR TERMINAL POSITICN VECTOR IN MEIERS 

* +27 FOR MOON * 

TDESIRED* +28 40P DESIRED TRANSFER TIME IN CENTISKXNDS 

Xl 1380)^ NONE *INDEX REGISTER SET TO -2D OR -loD ACCORDING TO WHETHER THE EARTH OR MOON, 

4 RESPECTIVELY, IS THE CENTRAL BODY 

CECMSCN 4 NONE 4SP +.5 IP DESIRH) TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG. 

GLBSSW 4 NINE 4AN INTERPRETER SWITCH TO BE SET IF NO GIBSS OP COGA IS AVAILABIE, CLEAR IP A GUESS OF 
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NOBM9V * NCVB 

* 

* 

VTABOIAOO NO® 

■* 
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^fX33^ IS TO Bg USH) BY lAJCEBT 

«P (XE33 OP COIANCWT OP PLKET PATH ANGLE (leASUBHO PBCM VERTICAL). IHIS WILL BB 
AtICNOBED IP OlESSir IS SET. 

4AN INTERPRETER SWITQI TO BE ffiT IP UN IS TO BE AN INPUT TO THE SUBROUTINE CLEAR IP 
♦lA)«EKr IS TO CCMPUlB ITS OBN N0»4AL (UN) . 

«P UNIT NOEWAL TO THB DBSIRHD ORBIT PLANE IN THE DIRECTICN OP THE lESULTING ANGUAR 
AMCMNTUM vector. THIS WILL BS IGNORED IP N0fWS» IS CLEAR. 

♦A S.P. DKJ TO BE SET TO ^RO IP lA^raRT IS TO CCMPUTE THE VELOCITY AT B2VEC AS WELL AS 
*AT HlVBC. 


SlBROUTINES CALLPD - 

CEOH, GEK, DBLTDE, ITERATOR, LAHBITER (PART OP NEWSTATE) 
(MLLINO SEOueiCE AND NORMAL EXIT MODES - 


L 

CALL 


L-»l 


LAECERT 

L*2 

BCN 


L*3 


SOLNSW 

L+4 


LAMABORT 


KI3T BE IN interpretive MODE AND OVPIND MUST BB CLEAR 

BBTUIWS with PL at 0 and with WEC IN MPAC IP VTARGTAO WAS NCN-ZERO OR VTAHGET 
IN MPAC IP VTAHCIAQ WAS ZERO 

CONTINUE IP SCLNSW CLEAR SINCE SOLUTICN IS ACCEPTABLE 


IP A lA'EERT result IS TO 0B A PIRST GIBSS FOR THE NEXT lAFBERT CALCUIATICN, COQA HJST BE PRESERVED AND 
GLBSSW HJST BE CLEAR POR BACH SUCCEEDING LAMBERT CALL. 

abort exit MODES - 

IP SOLNSW WAS set UPON EXITING, EITHER lA'BBHT WAS ASKS) TO CCMPinB A TRANSFER TOO NEAR o OR 360 DEG, OR T 
WAS TOO small to PRODlCB A REALISTIC TRANSFER BETWEEN RlVEC AND R2VEC. IN EITHER CASE THB PIX MUST BE MAM 
ACXIORDING TO THE NEH)S CP THE PARTICULAR USER. THE ABORT EXIT MCDB MAY BE CLD0D AS . . . 

LA)4ABQRT DLOAD ABS a f«ASUHE OP PRCNIMITY TO 0 OR 

i-csm 380 degrees. 

DSU B[^f 

(MBIT 

C«ANGER2 chance B2VEC DIRECTICN SLIGHTLY. 

DLOAD DAD 

TDESIRHD 

SOMETIME 

STCALL TDESIBED INCREASE TDESIHED 

IA'CERT 


cxmvr - 

* SCALE FACTOR ♦ 

variable*in powers of 2* 


descripticn and remarcs 
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ca*ic aimauTiNBs 


USBbS PACE MO. T 


WBC ♦ +7 Tor earih *op initial vaxciw vector in mbtehs/cbitiseccnd required to satisfy the bouciary vallb 

♦ +5 for MOCW *PR0BLH4. 

VWRIBr ♦ *7 FOR EAHm 4DP RESULTANT VHjOCITY VECTOR AT R 2 VEC IN EETEHS/CaiTI®ClDH> 

♦ *S FOR MOON * 

S0LNS8 ♦ NOME *INIEHPRE1ER SAITQI WIICH IS SET IF THE SUBROUTINE CANNOT SCLVE THE PROBLfM, CLEAR IF THE 

♦ *S0LUTI0N EXISTS. 

FOR OHER OUTPUT 8HICH MAY BE OF USB, SEE DEBRIS. 


oraais - 

PAHA^eiERS WHICH MAY BE OP USB 


♦ SCALE factor * 
VARIABLE4IN POWERS OP 2* 

♦ :4c 


DESCRIPTICN and remarks 


aoH 

CSIH 

1 -CslH 

COGA 

p 

RlA 


40P SIN OP ANGLE BEIWEQI HlVEC AND R2VEC 
«P COSINE OP ANGLE 
40P 1-CSIH 

40P COIAN OP INITIAL REOJIRED FLIGHT PATH ANGLE NEASUHED FRIH VERTICAL 
40P RATIO OP smiLAlUS RECTUM TO INITIAL RADIUS 
40P RATIO OP initial RADIUS TO SBIIMAJOR AXIS 


Rl t32D>* +29 for EAR1H40P INITIAL RADIUS IN METERS 
* *27 FOR MOCN * 

URl =► +1 40P U4IT VECTOR OP RivBC 

U2 ♦ *1 40P UNIT vector OP RpVBC 


R0235 PARA^BIBRS OP NO U® 

R0296 DP PARAjeiERS - EPSILCNL, CsiH-i«0, TPBEV, TEHRIA®, H2, RINLA'® (SP), PLUS PUStlST REGISTER o THROuai 4 iD 

B0298 additional INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW 

R030a 
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USBIUS PACE NO. 


PBOffiWM DBsCrIPTICN - TOe-THElA SlBHOrTINE 
MOD NO. - 0 
MCD BY KRAUSS 


D*TB - 1 SBPT®ffiR 196T 

UXJ SBCTICN - CONIC SOBKOUTINES 

ASSa«LY - COLOSSUS RBYISICN 88 


functional DBSCRIPTICN 


^ initial state vector and a DBSIHED TBLE-ANCMILY-DIPFERENCE thhouch which the 
AUKO a COTIC TBAJECtOHY, CALAlATES THE COBHESPCNDINO TI^«-0F-FLICHT AND IN ADDITION 

®SULTINO trajectory ^ A 

® hyperbola with respect to the earth or the mocn. the use CP the subroutine can bb 
BOENDro^USINO OIHER PRIMARY BODIES BY SIMPLE ADDITICHS TO THE HJTABLE WITHOUT INTRODuCINO ANY CODING CHANGES 
ACtBPTING THE INHEHatT SCALE FACTOR CHANGES IN POSITKH AND VELOCITY. ’ 


THE RESIHICTICNS ARB - 


«. SS «« ■ 'ra® <'-s »»™3 


a- PAfWMngRa W M PKBUN W3T NOP ExCEED WEIR SCXLINB LWITE SPBCIEIED IN THE GSOP IR iw LIMITS 
ARE BXCEEDHJ, THE RESULTING SOLUTICH WILL BE ^EANINGLES3. ‘ ” 


THE AGC CCNPUMtICN TI* IS APPROcIMATELY .292 ffiCQTOS. 

REFBlfi^CES - 

B-4T9, MISSION PROCSIUMING DEPINITICN MB40 NO. lo, LUNAR LANDING MISSION GSOP-SECTION 5 . 5 , SGA jiGMO 67 -8 ' 
INPUT - ehasabi^ initializaticn required 


* SCALE FACTOR * 

VARIABLE4IN POWERS OP 2 * DesCRIPTICN AND R08AHKS 

—“-*-*^——————— — —4^ 

RVEC * +29 FOR EARTH+OP INITIAL POSITION VE0W3R IN METERS 

* *27 for moon * 

WEC * +7 FOR BARTH 40P INITIAL VELOCITY VECTOR IN >ETERS/CENTI SECOND 

* +5 for moon * 


SNTH ♦ +1 
CSTH ♦ +1 


*OP SINE OP THUB-ANCMALY-DIPFEHENCB THRCUQH WHICH THE STATE IS TO BE UPDATS) 
*OP (XBINE OP THE ANGLE 


tVSW ♦ NO® *AN INTEHPHETIVE aTITOH TO BE SET IF (NLY TI^E IS TO BB AN OUTPUT, CLEAR IF THE NEW STATE 

* *IS TO BE CtNPUIED ALSO. 


XI (38D)WCNE 

* 


♦INDEX BBQISTEH TO BE SET TO OR -iqD ACCORDING TO WHETHER THE EARTH OR MOCN 
«ESPBCTIVH,Y, is THE CENTRAL BODY. ’ 


SLBBOUTINES CALLED - 






Ill 


■03S3 

■0354 

■0355 
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■0350 

IF ONLY TI* 

IS DESIRH) As OUTPUT - 

■0357 

L SET 

CALL 

HIST BE IN INTERPBBTIVE MODE AND OvFIND HOT BE CLEAR 

■0359 

1*1 

RVSW 

■0300 

L+2 

TIMEIHET 

HEIUIW WITH PL AT 0 AND T IN MPAC 

■0301 

t*3 


(XNTINUB 


■0302 


■0303 

■0304 

■0300 

■0307 

■0309 

■0370 

■03T1 

■0372 

■0374 

■0375 

■0370 


■0389 

■0390 

■0391 

■0392 

■0394 

■0390 

■0398 

■0399 


L 

L*1 

L+2 

L*3 

1*4 

1*5 

Ufl 


IP THE UPDATE STATE VECTOR IS DBSIRHJ AS WELL 


CLEAR CALL 
RVSW 
TI!«IHBT 

STWL NEWWEC 
SWDR 

STORE NEWRVEC 


ABO[ir Exit modes 


■0377 

L 

CALL 

BCN 

■0370 

1*1 


TIf«THET 

■0370 

1*2 


COGWPIAO 

■0380 

1*3 


COGABORT 

■0381 

■0383 

1*4 

BCN 


■0384 

1*5 


INFINFLG 

■0385 

■0388 

1*8 


impossbl 

■0387 

OUTPUT 

- 


■0388 


♦ SCALE FACTOR ♦ 


VARIABLE4IN POWERS OP 2 * 

4 * 

I (30D) ♦ +28 
WPINPLO* NONE 

* 

OOG^PLAG* NCNB 

* 


MUST BE IN interpretive MODE AND OVPIND NUST BE CLEAR 

RETUIWS WITH PL AT 8 . THE INITIAL POSITICN VECTOR IS IN oD OP THE PUSILIST AND 
THE INITIAL VELOCITY VECTOR IN MPAC. 


NBWVEC AND NBWIWEC ARE SW«OLIC REPREsanATKNS OP THE USERS LOCATIONS 
tXNTINie 


restriction 1 HAS BE©! VIOLATED. 

IP neither flag is set and RBSIHICTIQ4 2 HAS NOT BEBI VIOLATED, THE SOLUTION IS 
GOOD, SO CQITINUE 

NO SOLUriCN EXISTS. 


description and RS^ABOS 


40P transfer tiw in cbiti seconds 

*AN interpretive SWITCH WHICH IS SET IP THE TRANSFER ANGLE HBQuIRES CLOSURE THROXH 
♦INFINITY (NO SCLUTICH) , CXEAR IF A PHYSICAL SOLUTION IS POSSIBLE 

♦an interpretive switch which is set IP RESTRICTION 1 HAS BEB< VIOLATED (NO SOLUTION) 
♦CLEAR IF NOT ’ 




■0401 


IN ADDITICN, IP VTARCJDAa IS NCN-ZERO, THE FOLLOWING ARE OUTPUT - 
-MPAC - ♦ +7 FOR EARTH +0? TERMINAL VELOCITY VECTOR IN METERS/CENTISEC 
«*AC +5* +5 FOR MOCN * 
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OO . SD # +29 fob EAKntffiP TBHMINAL POSITION VECTOR IN METERS (PL AT 60) 
♦ *21 fob MOON * 

FOR OneR OUTPUT 9HICM MIY BE OP USE, SEE DfflRIS. 

debris - 

PARAieiBRS 9HICM MIY BE OP USB - 


* SCAIE PACrOR ♦ 
VARIABL84IN POWERS OP 2* 


description and REMHIKS 


Rl (32D)4 c +25 FOR EARTH+OP MICNIUCE OP INITIAL POSITION VECTOR, RVEC, IN MEIERS 
♦ *2T POR MOCN * 

RiA ♦ +0 40P RATIO OP Rl TO SE^IMAJOR AXIS (NEO. POR HYPERBOLIC TRAJECTORIES) 

P ♦ +4 *OP RATIO OP seilLATUS RECMlM TO Rl 

COOA ♦ *5 AOP CXIDAN OP ANGLE BETWEEN RVEC AND WEC 

URl ♦ +1 *OP UNIT vector OP RVEC 

U2 * *1 *0P UNIT VECTOR OP WEC 

UN ♦ *1 40P UNIT vector OP URl4U2 


PARA»eiBRS OP NO USE - 

SP parameters - RTNTT, GEOfSGN, RTNPHM, MAavEC2=H2 (DP), PLUS PUSILIST LOCATICHS 0-llD, I4D-21D, Z4D-39D, 41D 
ADOITKNAL INTERPRETIVE SWITCHES USED - NORMS*, 380SW 


I 


I 


P0428 

>0430 

U432 

110434 

>0435 

110436 

110438 

R0440 

1(0442 

1(0444 

1(0448 

I(044T 

1(0448 

1(0451 

B0452 

1(0453 

1(0455 

K0458 

1(0458 

1(04581 

1(04583 

1(04585 

804587 

80459 

80460 

80461 
80482 

80464 

80465 

80466 

80467 

80468 

80469 

80470 

80471 

80472 

80473 

80475 

80476 
80478 
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** initial state vector and a dbsirsd radius to which the 

* CCNIC THAJECTOtY, CALCULATES Tl-'.'e COHHESPCKDINO TME-OP-FLIGHT AND IN AEDITICN 
CW^\^P^ updated SWTE VECTOR. THE HBSIX-TINO TRAJECTORY MAY BE A SECTION OP A 

I^-B, ELLIPSE, PARABOLA, « HYPERBOLA WITH RESPECT TO THE BARTH OR THE MOON THE USE OP THE <3fnKtrrTNR atr 

USING OIKER PRDWRY BODIES BY SIMPLE ADOITKNS TO THE HJ»BLE WITHOUT INTSCBOCING ANY CODING CHANCES 
accepting the INHERENT SCALE PACtOB CHANCES IN POSITION AND VELOCITY INTRIW-ING ANY CODING CHANGES. 

APSEsi^™ APOCENTER OP THE ^IC OR BELOW THE RADIUS CP PERICENTER, 

PSES» WILL be SET AMJ BB aBROTriNE WILL RETURN THE APOCBJTER OR PERICaOER SOLUTICN, RBSPECTIVS-Y. 

THE restrictions ARB - 

ami lissCnf ^ 

are ^ 

particular, ip the CCNIC IS AN eyact circle, the pbobum is undefined AND theIib^inI 

THE AGO CCMPUttTHN TUB IS APPROXIMATELY .363 SECCNDS 
REPERBCCES - 

H-4T9, MISSICN PBOQRAMAING DEPINITICN NEMO NO. lO, UNAR LANDING MISSICN GSOP-SECtICN 5.5, SGA i>EMO 67-8. 


INPUT - erasable WITIALIZATICN REOJIRED 


dbscriptkn and REMAHCS 


* SCALE factor ifc 
VARlABLBttIN POWERS OP 2* 

* 4 : 

W/EC * 429 FOR EARTBNJP INITIAL POSITION VECTQR IN IBTBm ' 

* +27 for MOCK ♦ 

WBC * +7 FOR earth 40P INITIAL VHXKITY VECTOR IN ^E^EHS/CBm®CCND 

* *5 for MOCK ♦ 

m distance cn CCNIC trajectory for which transfer ti* is to be 

SCJCRDOT * NCNB ® '-S ACCORDING TO WHEIHER THE RADIAL VELOCITY AT RDESIMD IS TO BE 

♦POSITIVE C» NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE DQJBLE-VAILSD PROBLEM TO A 
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COMIC SlBBOUTIMBS 


USBBkS pace no. 12 


Xl <38D)*N0NE 

■ ■* 

a/SK * NONE 
♦ 


*SINGLB-VAUjeD PROBLOA. 

♦INDEX REOISTEH TO BB SET TO -2D OR -lOD ACCOHDINO TO WHBDffiR THE EAKIH OR MOCM 
respectively, is the CBITRAL BODY. ’ 

♦AN interpretive SWITCH TO BE SET IP (WLY THE IS TO BE AN OUTPUT, CLEAR IP THE NEW STATE 
♦IS TO BE computed ALSO. 


subroutines called _ 

PARAM. GEOM, CBK, DELTIi®. NBWSTATE 


CALLING ffiOUENCB AND NORMAL EXIT MODES - 


IP ONLY TIMS IS DESIRHD AS OUTPUT - 

L SET CALL HJST BE IN INTERPRETIVE MODE AND OvPIND HJST BE CLEAR 

L»1 RVSW 

TD«RAD HETUIN WITH PL AT 0 AND T IN MPAC 

1^3 . . . CCNTINl*! 


R0499 

ROSOO 

R0502 

II0503 

R0505 

Rosas 

R0507 

R0508 

R0510 

ROSll 

R0S12 

R0S13 

H0514 

R0515 

BOS 16 

B051T 

R0S20 

R0521 

R05211 

B0S212 

R0S214 

BOS 22 

R0S23 

R0524 


IP THE UPDATE STATE VECTOR IS DESIRED AS WELL - 
L clear call mist be in interpretive MODE AND OVPIND HJST BE CLEAR 

L*1 RVSW 

^2 TI>eHAD BETUIWS WITH PL AT 6 . THE INITIAL POSITICN VECTOR IS IN OD OP THE PUSHLIST AND 

THE initial velocity VECTOR IN MPAC 

L*3 STCVL NEWWEC 

L*4 STADR 

L*S STORE NEWRVBC NBWWEC AND NBWHvEC ARE S»BCLIC RBPRESENTATItHS CP THE USERS LOCATICNS 

... CCNTINUB 


abort Exit modes - 


CALL BON 

TIMBRAD 
COOAPLAO 
COGABORT 
BON BCN 

INPINFLO 

impossbl 

^ SOLNSW 

impossbl 


BESTRICTICH 1 HAS BEEN VIOATED. 


NO SQLUTKN EXISTS. 


SCLUTICN IS ITTOEPINED SINCE CONIC IS A CIRCIE. RBSTRICTICN 3 HAS Bf®N VIOLATED 
IP ALL THBHS OF THE FLAGS ARE CLEAR, A SCLUTICN EXISTS, SO CONTINUE. 


♦ SCALE FACTOR ♦ 


i 


I 


I 
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IU)525 

R0526 

R052T 

R0528 

1(0530 

R0532 

1(0534 

1(0535 

1(0537 

1(0539 

1(0541 

1(05411 

1(05413 

1(05415 

1(0542 


VARIAB1E4IN PaiBRS 

♦ 


OP 2* 
♦ 


oescaiPTicN Aio rbubks 


T G30D) ♦ *28 
WPINPLW NONB 
♦ 

O0QAFUO4 NCNB 
* 


APSESW 


SOLNSW 


♦ NONE 

♦ 

* 

* 

* NONB 


«P TOANSFER TIIE in CamsECCKDS 

DOEHPRETIVB SSUlQl WHICH IS »r IP RDBSIRa) AND SGNRDOT REOUIRB ttXJSURE THROUGH 
♦INPINITY (NO SOLUTION), CLEAR IP A PHYSHML SOLUTIOf IS POSSIBLE. 

4AN INTERPRBTIVB S»nt« WHICH IS SET IP HESTRICTICN 1 HAS BE0I VIOLATED (NO SOLUTION) , 
«lear ip not. 

4AN interpretive SWITCH WHICH IS SET IP RDESIRED WAS GREATER THAN RADIUS OP APCKSITER OR 
♦LESS THAN RADIUS OP PBRIC®nER. THE APCtSaiTER OR PERIGENTER SCLUTICN, RBSPEGTIVELV, 
♦WIU, THai BE returned, the SWITCH IS CLEAR IP RDESIRED WAS BETWE©( PERICaiTER AND 

♦apocbjter. 

♦an interpretive switch which is set ip the conic IS so close to a CIRCLE that the teiwin 
♦POINT IS ASBIGUOUS, VIOLATING RESTHICtICN 3. IP ECGSNTRICITY IS GREATER THAN 2-TO-THE- 
♦M1NU3-1B, THE SWITCH IS CLEAR. 


1(0543 IN ADDITION, IP VDAROTAG IS NON-ZERO, THE POLLOWING ARB OUTPUT - 


1(0544 

1(0545 

1(0548 

1(0547 

1(0548 

1(0549 

ROSSO 

ROSSI 

1(0552 

1(0553 

1(0554 

BOSSS 


HPAC _ ♦ *7 POa BARTH AOP TERMINAL VELOCITY VECTOR IN l«lERSA»rTISBC 
MPAC ♦s# +5 PQR MOCN ♦ 

OD - 5D ♦ *29 FOR EARIH+OP TERMINAL P03ITICN VECTOR IN leiEHS CPL AT bD) 
♦ *27 FOR MOCN ♦ 

POR OIHBR OUTPUT WHICH MAY BE OF U®, SEE DEBRIS. 

debris - 


PARAmiBRS WHICH MAY BE OP U® - 

♦ SCALE PACtOR ♦ 

VARIABLE4IN POWERS OP 2+ 




DESCRIptICN AND RBMARCS 


B055T 


♦ +27 

FOR MOCN 

ROSSS 

RlA 

♦ ♦« 

+OP 

ROSSO 

P 

♦ *4 

♦Op 

ROSSI 

COGA 

♦ tS 

♦op 

R0563 

URl 

♦ +1 

♦OP 

R0S64 

U2 

♦ *1 

♦op 

ROSSS 

UN 

* *1 

♦Dp 

ROSSS 

CSTH 

♦ *1 

♦DP 

ROSSS 

SNTH 

♦ H 

♦DP 


# 


1(0569 

1(0570 

1(0571 

R0573 

1(0574 


parameters of no U® - 

SP PARAMETERS - RTNTT, GECMSCH, RTNPRM, MAC^^2=R2 (DP), PLUS PuaiLIST LOCATICNS 0-llD. 14D-21D 24D-39D 41D 
ADDITIONAL INTERPRCTIVE SWITCHES USED - NORMS#, 360SW 





Ill 


W5T5 

U5TT 

M5T9 

■0581 

>8582 

■0583 

■0585 

K058T 

■0589 

80591 

■8592 

■0593 

■0594 

■0598 

■0598 

■0800 

■0801 

■0802 

■0803 

■0804 

■0808 

B080T 

■0808 

■0609 

■0810 

■0611 

■0812 

■0613 

■0614 

■0615 

■0617 

■0818 

■0619 

■0620 

■0021 

■0622 
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PttOORAM pesCRIPTION - APSIDBS SL^BOrTINB 
MOD NO. - 0 
KD BY KRAUSB 
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date - 1 ffiprasBR 1967 

U» section - CONIC SUBROUTINES 
ASSMLY - COUBSUS REVISION 88 


pucticnal description - 


THIS subroutine, OIVBI AN INITIAL STATE VECTOR CALCULATES THE RADIUS OP PERIC©fTER AND OP APOCENTBR AND THE 
eccenteicity op the resulting conic trajectory, which may be a stbaicht line, 

CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OP THE SUBROUTINE CAN BE 
EXTENDHJ USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MJIABLE WITHOUT INTRODUCING ANY CODING CHANGES, 
ACXSPTINO the inherent SCALE FACTOR CHANGES IN PCBITICN AND VELOCITY. 

THE RBSTRICtICNS ARE - 

1. IF APOCariER IS BEYOND THE SCALING OP POSITICN, THE SCALE FACTOR LIMIT 1538,870,910 leiERS WITH RESPECT 
TO THE EARTH OR 134,217,727.5 ^elBR3 WITH RESPEC T TO THE MOON) WILL BE RETURNED. 

2. THE PARA>E1EHS IN THE PROBLEM MIST NOP EXCEED THEIR SCALING LIMITS SPECIFIED IN THE GSC*>. IF THE LIMITS 
ARE EXCEEDED, THE RESULTING SOLUTION WILL BE WANINGLESS. 

THE AOC CCMPUTATICN TI* IS APPROCIMATELY .103 SECOTOS. 

REFEH0ICES - 

MISSION PROGRAMING DEFINITKK >GMO NO. 10, LUMR LANDING MISSKM GSOP-SECTICN 5.5 
INPUT - ERASABLE INITIALIzATICH REOUIRED 


description and remahcs 


* SCALE factor * 

variable+in powers op 2 * 

4 4 

RVEC 4 <-29 FOR EAR1H40P INITIAL POSITION VECTOR IN METERS 

* *27 for MOON * 

WEC ♦ *7 FOR EARTH 40P INITIAL VEIXJCITY VECTOR IN l>eTERS/CENTISECCND 

* +5 FOR MOON * 

XI (38D)*NCNE *TNDRX REGISTER TO BE SET TO -20 OR -lOD ACCORDING TO WHETHER THE EARTH OR MOON, 

'* ♦respectively, is the central BODY. 

subroutines called - 

PABAM, GECM 

calling seoubice and normal exit modes - 
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eWlC S«MUriNE3 


UffiRaS PAOB NO. 15 


IF ONLY TIMS IS DBSIHED AS OUTPUT - 


CALL 

APSIOBS 
STCDL APOAPSE 
OD 

STORE PERIAPT 


MUST BE IN interpretive MODE AND CVPIND MUST BE CLEAR. 

RETUIWS with PL AT 0, RADIUS OF APOCBJTBR IN MPAC AND RADIUS OP PERICBnER IN OD 


CCKTINUB 


APCMPSE AND FERIAPSE ARE SWBCLIC RBPREsamTICNS OP THE USERS LOCATIONS 


OUTPUT - 

♦ SCALE FACTOR * 

VA8IABLE4IN POSERS OF 2* DESCRIPTIQ 

♦ * , 

WAC ♦ +29 FOR EARTH+OP RADIUS OP APOCHTIER IN leiEHS 

♦ *27 FOR MOON * 

CD-lD * *29 FDR EARIH+OP RADIUS OP PERICBITER IN ^eiERS 

♦ *27 FOR MOCK ♦ 

ECC * t3 40P eccentricity OP CCNIC TRAJECTORY 


description AND H04AHKS 


FOB OnCR OUTPUT «HIOH MAY BE OP USE, SEE DEBRIS. 


pabaj«ters nhicm may be op use - 


♦ SCALE factor ♦ 
WARIABLE^IN posers op 2 * 


DBSCRIPTICN and H04AHKS 


■l l32D»* *29 TOR EAR1H40P MAGNITVI* OP INITIAL POSITICN VECTOR RVEC IN METERS 

* *27 for moon * ’ 

*1* * +6 40P RATIO OP Ri TO SEMIMAJOR AXIS (NBO. FOR HYPERBOLIC TRAJECTORIES) 

F * *4 40P RATIO OP SS4ILATU3 HEClLW TO Rj 

OOGA * *5 40P COWN OF ANGLE BETWEEN RVEC AND WEC 

on ♦ +1 40P UNIT vector of RVEC 

IB * *1 40P UNIT vector OP WEC 

IW * *1 40P LNIT VECTOR OF URl4U2 

MAGWBC2 * *7 FOR BARTH 40P MACNITUDB OP WEC 

* *5 for moon ♦ 




PABAf«TERS OP NO USE - 

SP PARAjeiERS - RINAPSE, GECMSGN, RINPfW, PLUS PUELLIST LOCATIONS 0-5,10D-llD, 14D-21D, slD-sgD 
ADDITIONAL INTERPRETIVE SWITCHES USED - N0R4SW 


12,2000 


SEILOC CONICS 
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esTO 




12,2000 


BAI«C 


esTi 

REP 

1 




COUNT 

IZAXWIC 

0ST2 

HEP 

2 

LAST 94 

85,1723 


EaA»C= 

URl 

06T8 




12,2000 

71201 1 

kbplehn sbttd 

DLOID 

08T9 




12,2001 

00001 0 


0 

0880 

HEP 

1 


. 12,2002 

11456 0 


kbpzbro 

0681 

HEP 

1 


12,2003 

01344 0 

STORE 

XMaX3LO 

0682 

hep 

1 


12,2004 

31346 1 

STOVl* 

TMODULO 

0883 

WS' 

5 

LAST 548 

12,2005 

11631 Q 


HT»BLE,i 

0684 




12,2006 

24017 1 

STCX/L 

14D 

0685 

REP 

3 

LAST 503 

12,2007 

01503 0 


rrect 

0686 




12,2010 

66 256 0 

UNIT 

SSP 

oesT 

HEP 

1 


12,2011 

00027 1 


ITEBCra 

0688 




12,2012 

00024 1 


20D 

0689 

HEP 

2 

LAST 94 

12,2013 

16647 0 

ST^CL 

URHECT 

0690 




12,2014 

00045 0 


38D 

0691 

HEP 

2 

LAST 861 

12,2015 

24041 1 

STCVL 

Hi 

0692 

HEP 

4 

LAST 1247 

12,2016 

01503 0 


rrect 

0693 




12,2017 

76441 1 

DOT 

a,iR 

0694 

REP 

2 

LAST 83 

12,2020 

01511 0 


vhect 

0695 




12,2021 

76405 1 

EMP 

9l,lR 

0696 

REP 

1 


12,2022 

00023 0 


1/ROOlHJ 

069T 

HEP 

1 


12,2023 

24043 0 

SKVL 

KEpCi 

0698 

REP 

3 

LAST 1247 

12,2024 

01511 0 


VRECT 

0699 




12,2025 

57 236 1 

VSQ 

DHPR 

0700 

HEP 

1 


12,2026 

00017 1 


l/MU 

0701 




12,2027 

52405 1 

DMP 

SL3 

0702 

REP 

3 

LAST 1247 

12,2030 

00041 1 


Hi 

0703 




12,2031 

61425 0 

DSU 

ROUND 

0704 

REP 

1 


12,2032 

11500 1 


Di/64 

0705 

REP 

1 


12,2033 

00045 0 

STORE 

KEPC2 

0706 




12,2034 

74421 0 

BDSU 

SRlR 

0707 

REP 

2 

LAST 1247 

12,2035 

11500 1 


Di/64 

0708 




12,2036 

77671 1 

DIV 


0709 

REP 

4 

LAST 1247 

12,2037 

00041 1 


Hi 

0710 

REF 

1 


12,2040 

00011 1 

STORE 

ALPHA 

0711 




12,2041 

71244 0 

BPU 

DLOID 

0712 

REP 

1 


12,2042 

24051 0 


IREV 

0713 

REP 

1 


12,2043 

11516 0 


-50SC 

0714 




12,2044 

40071 0 

DtV 

BCV 

0715 

REP 

2 

LAST 1247 

12,2045 

00011 1 


ALPHA 

0716 

BEP 

1 


12,2046 

24055 1 


SrOBE4AX 

0717 




12,2047 

52166 1 

SORT 

(xrro 

0718 

REP 

2 

LAST 1247 

12,2050 

24055 1 


STOR»«X 
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I/ROOIMU f-lT OR -14) 
Ci=H.V/ROOMJ UlT OR +16) 

1/WJ (-84 OR -28) 

C2=RY.V/!>4J -1 (+6) 

ALPHA=(i-C2)/Ri (-22 OR -20) 
WXIMLM X DEPENDS CN TtrE OF CCNIC 

-50SC (+12) 


in 

AS9B«LS HBVISICK 249 OP AOC PROGSlAM COLOSSUS BY NASA 2021111-041 
I. OMIC SIBHOUTINES 


12,2051 

•T*® 2 tASr 549 12,2052 

12,2053 

•TH WP 3 LAST 124T 12,2054 

•^*3 12,2055 

B®' 2 LAST gg 12,2056 

BT2S BBP 1 12,2057 

1 12,2080 

BT2T 12,2061 

BT28 BHP 2 LAST 1247 12,2062 

•TBB BBP 3 LAST 1247 12,2063 

BLB® 12,2064 

•T31 BBP 56 LAST 1231 12,2085 

•T32 12, 2066 

•TB3 12,2067 

•T34 12,2070 

BT35 BHP 1 12,2071 

•T3* BW 2 LAST 1246 12,2072 

•T3T 12,2073 

•T3B 12,2074 

•»3» BH' 3 LAST 1246 12,2075 

•740 SB' 3 LAST 1248 12,2076 

•741 IBP 4 LAST 1248 12,2077 

•T42 BBP 2 last 1248 12,2100 

•TAB 12,2101 

•L44 BBP 2 LAST 1247 12,2102 

•745 BHP 3 LAST 1248 12,2103 

•TAB 12,2104 

•tat 12,2105 

•TAO BBP 2 LAST 1247 12,2106 

•T4t SBf 3 LAST 1248 12,2107 

•T5» 12,2110 

•T51 BBP 1 12,2111 

•T5* 12,2112 

•TS3 12,2113 

•T54 BBP 2 last 1247 12,2114 

•T55 BBP 1 12,2115 

•756 BBP 2 LAST 87 12,2116 

•TST 12,2117 

0758 BBP 4 LAST 1248 12,2120 

•75* MB' 1 12,2121 

•TBB 12,2122 

•761 WP 1 12,2123 

•762 BH' 2 LAST 1248 12,2124 

•TB3 12,2125 

•764 SB' 3 LAST 1248 12,2126 

•765 BBP 3 LAST 1248 12,2127 


55368 1 

IREV 

SORT 

BXV 

11520 0 



2P1SC 

77600 1 


acv 


24055 1 



STORBIAX 

50165 0 

ST0RB4AX SIGN 

em 

02312 0 



TAU. 

24272 0 



bac^ckabd 

00013 0 


STORE 

XMAX 

65205 0 


DMP 

POOL 

00023 0 



1/ROOTHJ 

00011 1 



alpha 

65301 0 


NOBM 

FOOL 

00047 1 



XI 

56257 1 


SL4 

DtV 

20173 0 



0 -6,1 

50000 1 

PEHIOKH bcv 

B6N 

24112 0 



MCDDCNE 

24112 0 



MODDCNB 

77606 1 


pua« 


50021 1 


bdslj 

EM4 

02312 0 



TAU. 

24112 0 



MCDOCNB 

.16312 0 


stcdl 

TAU. 

00013 0 



XMAX 

77615 0 


DAO 


01344 0 



XMODULO 

15344 0 


STOOL 

XMCCOLO 

00001 0 



OD 

77615 0 


DAD 


01346 1 



TMCDULO 

15346 1 


STODL 

TMCDULO 

77650 1 


OOTO 


24070 0 



PERIODCH 

71201 1 

MtriXNB 

SBTPD 

DIXMD 

00001 0 



0 

11456 0 



KBPZEBO 

14015 0 


STODL 

XMIN 

02306 0 



XKEPNEW 

77825 0 


DSU 


01344 0 



XMODULO 

00025 0 


STORE 

X 

50054 0 


BzE 

a«N 

24265 0 



hadx 

24265 0 



BADX 

51025 1 


DSU 

BPL 

00013 0 



XMAX 

24265 0 



hadx 
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2PISC (+6) 


PL AT 2 


nriSl WITH OD. oD=ALPHA PL AT 0.2 

PL AT 0 


ODrPEHIOD (+28) 


PL AT 0 
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OCMIC SUKWUTINES 
US' 5 LAST 1248 

lep . 1 

BSP 1 

BBP 2 ' LAST 83 


4 LAST 1248 
3 LAST 1249 
1 


BBP 5 last 1248 

HEP 2 LAST 1248 

RSP 2 last 94 

HEP 3 LAST 1249 

hep 59 last 1248 

hep 4 LAST 1248 


8 LAST 1249 
2 LAST 94 

2 LAST 1249 


10 LAST 893 

4 LAST 1249 
60 LAST 1249 

3 LAST 1249 

31 LAST 1228 

32 LAST 1249 
3 LAST 1249 


USSEbiS PAOB NO. 18 


12.2130 

12.2131 

12.2132 

12.2133 

12.2134 

12.2135 

12.2136 

12.2137 

12.2140 

12.2141 

12.2142 

12.2143 

12.2144 

12.2145 

12.2146 

12.2147 

12.2150 

12.2151 

12.2152 

12.2153 

12.2154 

12.2155 

12.2156 

12.2157 
12,2160 
12,2161 
12,2162 

12.2163 

12.2164 

12.2165 

12.2166 
12,2167 

12.2170 

12.2171 

12.2172 

12.2173 

12.2174 

12.2175 

12.2176 

12.2177 
12,2200 
12,2201 
12,2202 

12.2203 

12.2204 

12.2205 

12.2206 
12,2207 


57345 1 
02312 0 
11511 1 
77646 0 
15350 0 
01551 1 
45254 0 
24141 0 
01346 1 
15551 1 
01553 0 
45254 0 
24146 1 
01344 0 
77621 1 
00025 0 
02643 1 
63545 0 
00025 0 
41501 0 
00047 1 
53605 1 
00011 1 
21573 0 
34031 1 
24426 1 
44200 0 
24312 1 
02312 0 
02645 1 
44246 1 
0135 0 0 
71244 0 
24334 0 
00037 0 
60225 1 
01551 1 
00047 1 
60325 0 
02643 1 
00050 1 
41260 0 
00047 1 
02645 1 
56 257 1 
21202 1 
41542 1 
71244 0 


DXCOIP DLOAD 


NEsnC STCDL 


EPSILCNT 

TC 

DSU 

NEenc 

TMtBULO 

TC 

XPBBV 

DSU 

XDIPP 

XMODULO 


XDIPP BDSU 

STORE 
KEPLOOP DLOID 


0 - 6 , 1 - 

SlCALL XI 

DELTIPB 

BDSU 

TI^®CVFL• 

TAU. 

STORE CELT 
ABS BDSU 

EPSILCKT 
BPL DLOP 

KEPCONVO 


X=»CBP 

0D=XSQ (+34 OB +32 -Nl> PL AT 2 


XI=ALPHA XSO (+6) 


LWLIkELY 

Da,T=DeLINDEP 


pool, 

DELX 
X2 + 

DECT 

DCV 

1 , 1 ' 

Pusi 

RPC DLCWD 


ODrTBIAL DEt,X 


PI, AT 2 


i®ri3I<» 24 , OP ^ colossus BT NAS* 2021111-041 

®WIC smOJriNBS 


M13 wr 

0814 HEP 

0815 Hap 

0816 

081T REP 
0818 

0819 IBP 

0820 BSP 

0821 
0822 

0823 REP 

0824 

0825 REP 
0828 REP 
6827 

0828 REP 

0829 REP 

0830 

0831 IBP 

0832 in' 

0833 

0834 REP 

0835 

0838 REP 

0837 REP 

0838 

0839 

0840 in' 

0841 

0842 RBP 

0843 RBP 

0844 RBP 

0845 RBP 
0848 RBP . 

0847 

0848 REP 

0849 RBP 

0850 

0851 REP 

0852 

0853 RBP 

0854 REP 

0855 

0858 REP 


I 


12.2210 

24231 1 

4 

last 1249 

12,2211 

00025 0 

4 

last 1248 

12,2212 

00013 0 



12.2213 

45221 1 

2 

last 1248 

12,2214 

00015 0 



12,2215 

51000 0 

1 


12,2218 

24223 1 

2 

last 1250 

12,2217 

24223 1 



12,2220 

52145 0 



12,2221 

00001 0 

1 


12,2222 

24243 1 



12,2223 

45345 1 

3 

last 1250 

12,2224 

00015 0 

5 

last 1250 

12,2225 

00025 0 



12,2228 

52075 1 

1 


12,2227 

11514 1 

2 

last 1250 

12,2230 

24243 1 



12,2231 

77745 1 

6 

last 1250 

12,2232 

00025 0 

4 

last 1250 

12,2233 

00015 0 



12,2234 

45221 1 

S 

last 1250 

12,2235 

00013 0 



12.2238 

50000 1 

1 


12.2237 

24257 1 

2 

last 1250 

12,2240 

24257 1 



12,2241 

77745 1 



12,2242 

00001 0 

4 

last 1249 

12,2243 

02643 1 


20’35 OCT. 28,1968 SATRAP .007 PACE 12 ^ 
USEHaS PACE NC. 19 1 ^ 33 



cS 


NCXQWGB olcmo 


PQSMjt OLOAO 


2 LAST 1249 
T LAST 1250 
8 LAST 1250 

11 LAST 1249 
5 ...LAST .1249 

1 

3 LAST 1250 


6 LAST 1250 
9 LAST 1250 

2 LAST 1250 


12.2244 

12.2245 
12,2248 
12,2247 
12,2250 
12,2^1 

12.2252 

12.2253 

12.2254 

12.2255 
12,2258 
12,2257 
12,2260 
12,2261 

32.2262 

12.2263 


43254 0 
24334 0 
00025 0 
14025 0 
0003T 0 
01551 1 
46034 1 
24651 0 
24334 0 
77650 1 
24151 1 
45345 1 
00013 0 
00025 0 
52075 1 
11514 1 


Na«*Lx STQBB 
B2g 


STCH? 

BRNCMCm RTO 


goto 

■'PI?)COiNGE DLOV> 


foaieuc 

X 

B XHlX 
» DSU 
XMIN 
^ BPL 
lONClOlGB 
»9(Cle«S 

» ooro 

OD 

NERDBLX 
> DSU 
XMIN 
X 

ooro 

DP9/10 

nehso^ 

» 

X 

! XMIN 
DSU 
XMAx 

KWHNCE 

JCxChNOB 

OD 

DBLX 

DAD 

KBPCINVO 

X 

X 

T 

TP 

BHIZ 

checkcto 

KBpCOJvO 

XBPIXXIP 

DSU 

Xf«X 

X 

ooro 

DP9/10 


MtVE MAX BOKD IN 


PL at 0 


TO FORCE MPAC +2 TO ^RO 


M(VE MIN BCU® IN 


PL AT 0 


TO FORCE MPAC +3 TO ZERO 


L 


ASSaCLB REVISION 249 OP AOC PRO®AM COLOSSUS BY NASA 2021111-041 
OONIC SlBROUriNBS 








0657 

0858 

wr 

3 

last 1250 

0859 

tBf 

7 

last 1250 

0860 

0801 

REP 

10 

last 1250 

0862 

REP 

1 


0863 

RBP 

5 

last 1250 

0864 

REP 

3 

LAST 1248 

0865 

RBP 

8 

last 1251 

0866 

REE 

3 

last 1248 

0867 

0868 

REE 

11 

last 1251 

0869 

RBP 

1 


0870 

0871 

RBP 

2 

last 1251 

0872 

RBP 

6 

last 1251 

0873 

0874 

RBP 

2 

last 1251 

0875 

RBP 

7 

last 1251 

0870 

0877 

REE 

12 

last 1251 

0878 

0879 

HEP 

3 

last 1251 

0880 

REP 

13 

last 1251 

0880S 

RBP 

1 


0881 

0882 

REE 

9 

last 1251 

0883 

REE 

5 

LAST 1250 

0884 

0885 

REP 

6 

last 1251 

08855 

RB' 

1 


0886 

RS' 

14 

LAST 1251 

0887 

REE 

15 

last 1251 

0888 

RBP 

6 

last 1250 

0889 

0890 

BEE 

12 

LAST 1250 

0891 

REP 

1 


08911 

08912 

RBP 

8 

last 1251 

08913 

0892 

BEE 

1 


0893 

0894 

RBP 

5 

LAST 1247 

0895 

FBP 

1 



12.2264 

12.2265 

12.2266 
12,2267 

12.2270 

12.2271 

12.2272 

12.2273 

12.2274 

12.2275 

12.2276 

12.2277 

12.2300 

12.2301 

12.2302 

12.2303 

12.2304 

12.2305 

12.2306 

12.2307 

12.2310 

12.2311 

12.2312 

12.2313 

12.2314 

12.2315 

12.2316 

12.2317 

12.2320 

12.2321 

12.2322 

12.2323 

12.2324 

12.2325 

12.2326 

12.2327 

12.2330 

12.2331 

12.2332 

12.2333 

12.2334 

12.2335 

12.2336 

12.2337 


24243 1 

nbhdhjc 

70545 1 
00013 0 

back DLQAO 

00025 0 

STOHB X 

77650 1 

OOTO 

24130 0 

DXCCMP 

14015 0 

BAQntAlO STCDL XMIN 

11458 0 

KEPffiHO 

14013 0 

STODL XWX 

02306 0 

XKEPNEW 

00025 0 

STOHB X 

51054 1 

Bj® BPL 

24305 1 

BAOeKWDX 

24305 1 

badbkviox 

51025 1 

DSU BPL 

00015 0 

XMW 

24130 0 

DxCCMP 

70545 1 
00015 0 

BADBkrDX DUMD 

00025 0 

STORE X 

77650 1 

OOTO 

24130 0 

DXCOIP 

50145 1 

TDECVPL DLOID BW 

00025 0 

X 

24331 0 

NBOTOVPL 

00013 0 

STORE XHAX 

70545 1 

OtfKVPL DUMD 

02643 1 
02643 1 

STORE Dajc 

44254 1 

bzb BOSU 

02270 0 

keprin 

00025 0 

X 

14025 0 

STODL X 

OlSSl 1 

TO 

00037 0 

STORE T 


77650 

24252 

00015 

77650 

24316 

44545 

00041 

74225 

00035 


COTO 

BRNCHCTR 

nhjtcvfl store XMIN 

GOTO 




KEPCCNVG DUMD^ 

DSU VXSC 

XSOC(XI) 


20*35 OCT. 28,1968 SATRAP .007 PACE X25i 
USRkS pace no. 20 B5 S3 


bbcipe BxlxaieD x bounds - use xwx/2 


X WAS TOO BIO 




ASSBOLB RBVISICM 249 CP AOC PROt»AM COXMSUS BY NASA 2021111-041 


III 

L ocMic smKxrriNBs 


0898 

RBP 

3 

lASr 1247 

12,2340 

02647 0 

0897 




12,2341 

65372 1 

0898 

RBP 

16 

lAsr 1251 

12,2342 

00025 0 

0899 




12,2343 

60316 0 

0900 

RB' 

61 

IAST 1249 

12,2344 

00047 1 

0901 




12,2345 

57275 0 

0902 

REP 

3 

LAST 1248 

12,2346 

00023 0 

0903 

REP 

17 

LAST 1252 

12,2347 

00025 0 

0904 




12,2350 

53605 1 

0905 

REP 

1 


12,2351 

00033 1 

0906 




12,2352 

21572 1 

0907 




12,2353 

77621 1 

0908 

REP 

13 

IAST 1251 

12,2354 

00037 0 

0909 




12,2355 

7435 2 0 

0910 

REP 

4 

LAST 1247 

12,2356 

01511 0 

0911 




12,2357 

53372 1 

0912 




12,2360 

77712 0 

0913 

REP 

14 

last 1229 

12,2361 

01535 0 

0914 




12,2382 

60246 1 

0915 

REP 

33 

IAST 1249 

12,2363 

00050 1 

0916 

REP 

2 

LAST 94 

12,2364 

16655 0 

0917 

REP 

2 

LAST 1249 

12,2365 

00031 0 

0918 




12,2366 

45275 0 

0919 

REP 

2 

LAST 1252 

12,2367 

00033 1 

0920 

HEP 

1 


12,2370 

11476 1 

0921 




12,2371 

76405 1 

0922 

REP 

1 


12,2372 

00021 1 

0923 




12,2373 

53605 1 

0924 

REP 

18 

LAST 1252 

12,2374 

00025 0 

0925 




12,2375 

56601 0 

0926 




12,2376 

74271 0 

0927 

REP 

3 

LAST 1252 

12,2377 

02655 0 

0928 

REP 

4 

LAST 1252 

12,2400 

02647 0 

0929 




12,2401 

65372 1 

0930 

REP 

2 

LAST 1251 

12,2402 

00035 1 

0931 




12,2403 

56 257 1 

0932 




12,2404 

56602 0 

0933 

HEP 

4 

LAST 1252 

12,2405 

02655 0 

0934 




12,2406 

74221 0 

0935 

REP 

1 


12,2407 

11512 1 

0936 

RB' 

5 

LAST 1252 

12,2410 

01511 0 

0937 




12,2411 

42455 0 

0938 




12,2412 

77626 0 

0939 

REP 

13 

LAST 1229 

12,2413 

62234 0 

0940 

REP 

14 

LAST 1252 

12,2414 

00037 0 

0941 




12,2415 

77615 0 

0942 

REP 

5 

LAST 1249 

12,2416 

01346 1 

0943 

REP 

7 

LAST 1251 

12,2417 

15551 1 





DMPR DMPR 

1/ROOlHJ 
X 



STOOL BCNOBM 

XI 

CMPH DSU 

s(xn 

gl/l2 B 

OMP 
DMP 



DCV 


0 -3,2 1 
VXSC 
BCNCKW 
URRECT 
poor, 

.xsac(xi) 
?DIV 
0 -4,2^ 
BCNORM 
BDSU VXSC 
Di/256 

VAD 
SWDR 
STOOL VCV 
T 

DAD 

TMGDOLO 
STODI, TC 


20*35 CXM, 28,1968 SATRAP .OOT PAOB 125 
USB>S PAOB NO. 21 Bs S3 

Ol>=<Rl-XSQC(XI))URHECT (+33 OB +31) 



PL AT 0 


I*V (+29 OR ♦2T) 


ODrURHEWXl S(XI)-1)X ROOrMJ/HCv (+15 
OB +13) PL AT 6 



PL AT 0 


VCv (+7 OB +5) 




II 


ASSOetB taviSION 249 op AOC HKXSIAM colossus by NASA 2021111-041 
OWIC Sl®ROUriNES 


OAO 

»«xuu> 

STORB XPS8Y 
OOTO 

KBPRm 


20’35 OCT. 28,1968 SATRAP .OOT PACE 1253 
USBIteS PAGE NO. 22 Bs S3 


0944 

REP 

19 

IAST 1252 

12,2420 

00025 0 

0945 

0946 

REP 

6 

lASr 1249 

12.2421 

12.2422 

77815 0 
01344 0 

094T 

REP 

2 

last 1249 

12,2423 

01553 0 

0948 

0949 

REP 

2 

LAST 1251 

12.2424 

12.2425 

77650 1 
02270 0 



Ill 


ASStBLB BB\riSICH 249 OP AQC PBOQEIAM COLOSSUS BY NASA 2021111-041 

ooric smtouriNBs 


•950 




12,2426 

77778 1 

DELTIMB BXIT 


•951 

■E 

T 

I>ST 1160 

12,2427 

0 7171 1 

7C 

POLT 

•952 




12,2430 

00010 0 

Dec 

8 

•953 




12,2431 

02525 1 

jpec 

.083333334 

•953 




12,2432 

12526 0 



•954 




12,2433 

67356 0 

gxc 

-.266666684 

•954 




12,2434 

75666 0 



•955 




12,2435 

15001 1 

spec 

.406349155 

0955 




12,2436 

23771 1 



•950 




12,2437 

64342 0 

sec 

-.361198675 

•950 




12,2440 

43674 0 



•9ST 




12,2441 

06563 1 

sec 

.210153242 

•95T 




12,2442 

04645 1 



•958 




12,2443 

75173 0 

sec 

-.086221951 

•958 




12,2444 

52672 0 



•959 




12,2445 

00656 1 

2pec 

.026268812 

•959 




12,2446 

14331 0 



•960 




12,2447 

77633 1 

sec 

-.006163316 

0980 




12,2450 

40512 0 



0961 




12,2451 

00023 0 

sec 

.001177342 

0961 




12,2452 

11210 1 



0902 




12,2453 

77774 0 

sec 

-.000199055 

•962 




12,2454 

67506 0 



•963 

lEP 

230 

LAST 1228 

12,2455 

0 6006 1 

TC 

WTPHET 

•964 

sep 

3 

LAST 1252 

12,2456 

14033 1 

STOOL 

S(XI> 

0985 

lEP 

3 

LAST 1252 

12,2457 

00031 0 


XI 

0966 




12,2480 

77776 1 

Exit 


096T 

■OP 

6 

LAST 1254 

12,2461 

0 7171 1 

TC 

POLY 

0968 




12,2462 

00010 0 

DEC 

8 

•969 




12,2463 

01000 0 

2DeC 

.031250001 

0969 




12,2464 

00000 1 



09T0 




12,2465 

72525 0 

2000 

-.166666719 

09T0 




12,2466 

52506 0 



99T1 




12,2467 

13301 1 

2DBC 

.355555413 

09T1 




12,2470 

15337 1 



09T2 




12,2471 

62776 0 

2000 

-.406347410 

09T2 




12,2472 

54733 1 



09T3 




12,2473 

11176 1 

sec 

.288962094 

09T3 




12,2474 

13267 0 



09T4 




12,2475 

73410 0 

sec 

-.140117894 

09T4 




12,2476 

51674 0 



09T5 




12,2477 

01446 0 

sec 

.049247387 

09TS . 




12,2500 

33641 1 



09T6 




12,2501 

77451 1 

sec 

-.013081923 

•9T6 




12,2502 

65233 0 



09TT 




12,25 03 

00055 1 

sec 

.002806389 

OOTT 




12,2504 

37266 1 



09T8 




12,2505 

77767 1 

sec 

-.000529414 

09T6 




12,2506 

5 2336 0 



09T9 

BBP 

231 

LAST 1254 

12,2507 

0 6006 1 

TC 

INTPRET 


20*35 OCT. 28.1968 SATRAP .OOT PACE 12jf 
UStSUS PAGE NO. 23 Bs S3 
MPAC=XI <+6), 0D=X3Q 1+34 OR +32 -Nl) 







A3Sa«lH RBVISIQN 249 O' ^ PROffltAM COLOSSUS W NASA 2021111-041 20*35 OCT. 28,1908 SAIHAP .OOT PAOB 1255 

CCMIC SlSaOUriNBS USIUS PAOB no. 24 BS S3 


0980 




12,2510 

53805 1 

CMP 

SRB4 


PL AT 0 

0981 




12,2511 

00001 0 


OD 



0982 




12,2512 

21574 1 


0 -5,1 



0983 

HEP 

3 

tAsr 1252 

12,2513 

00035 1 

STORE 

xsaC(xi) 

XSOC(XI) C*33 OR +31)- 


0984 




12,2514 

72405 0 

CMP 

a-1 



0985 

BEP 

2 

LAST 1247 

12,2515 

00043 0 


KEPCI 



0980 




12,2518 

65234 1 

H3« 

nxx. 

XCM WITH PL. 0D=Ci XSQ C(Xl> 

(+49 OR +46 

0987 

REP 

10 

IAST 1223 

12,2517 

45562 1 




PL AT 0,3 

0988 




12,2520 

53605 1 

CMP 

SBB>*' 



0989 

HEP 

4 

lAsr 1254 

12,2521 

00033 1 


S<XI) 



0990 




12,2522 

21574 1 


0 -5,1 



0991 




12,2523 

72405 0 

CMP 

SLl 



0992 

HEP 

2 

LAST 1247 

12,2524 

00045 0 


KBPC2 



0993 




12,2525 

65234 1 

H® 

POX, 

3P=C2 XSQ SfXl) (*35 OR *33) 

PL AT 8 

0994 

HEP 

11 

last 1255 

12,2528 

45562 1 


TTMCDE 



0995 

HEP 

0 

LAST 1251 

12,2527 

00041 1 


Hi 



0990 




12,2530 

76261 0 

SR 

TAD 


PL AT 3 

0997 




12,2531 

20607 1. 


6 



0998 




12,2532 

41301 0 

NORM 

CMP 

TO PRESERVE SIGNIP. 


0999 

hep 

82 

LAST 1252 

12,25 33 

00047 1 


XI 



1000 

REP 

20 

LAST 1253 

12,2534 

00025 0 


X 



1001 




12,2535 

76257 0 

SB* 

TAD 

X(C2 XSO S(XI) tRl) (+49 OR +46) PL AT 0 

1002 




12,2538 

20576 1 


0 -3,1 



1003 




12,2537 

57232 0 

slab. 

CMPR 



1004 

REP 

4 

LAST 1252 

12,2540 

00023 0 


1/ROOTHJ 



1005 . 

BEP ■ 

15 

LAST 1252 

12,2541 

00037 0 

STORE 

T 



1008 




12,2542 

77616 0 

VNO 






HI 


A8S»BLE RBVISICK 249 OP AOC PROCaAM CQLOSaJS BY NASA 2021111-041 
CONIC SlBRtXrriNES 


lOOT 

1008 RBP 

1009 REF 

1010 REF 

ion 

1012 RBP 

1013 REP 

1014 

1015 REP 
1018 REP 
lOlT 

1018 REP 

1019 REF 

1020 
1021 
1022 

1023 REP 

1024 REP 

1025 

1028 REP 
102T 

1028 fBF 

1029 

1030 REP 

1031 REP 

1032 REP 

1033 REP 

1034 

1035 HEP 
1038 

103T REP 

1038 HEP 

1039 

1040 REP 

1041 

1042 REP 

1043 REP 

1044 

1045 REP 
1048 REP 
104T 

1048 REP 

1049 REP 

1050 




12,2543 

71214 0 

iterator BCNCLR dload 

1 


12,2544 

00614 1 


SLOPES* 

1 


12,2545 

24613 0 


PIRSTMB 

1 


12,2546 

00037 0 


DBP 


LAST 94 

12,2S4T 

60225 1 

dsu 

NO(M 

2 

12,2550 

02764 0 


DBPRBV 

63 

last 1255 

12,2551 

00047 1 


XI 



12,2552 

80325 0 

PDDC 

NORM 

1 

last 1252 

12,2553 

00015 0 


DBLINDBP 

34 

12,2554 

00050 1 


X2 


last 1256 

12,2555 

41280 0 

XSU.l 

DMP 

35 

12,2556 

00047 1 


X2 

3 

LAST 94 

12,255T 

02762 0 


DELDEP 



12,2560 

56257 1 

SLR* 

DDV 



12,2561 

21202 1 


1,1 



12; 2562 

43142 1 

SRl 

BGPP 

1 


12,2563 

04351 1 


ORDERS* 

1 


12,2564 

24567 0 


SGWCHECk 


last 1256 

12,2565 

75246 0 

ABS 

SKW 

4 

12,2566 

0276 2 0 


DBUJEP 



12,2567 

51006 0 

SGNCHEtV PUSH 

BPL 

1 


12,2570 

24625 0 


POaiEL 



12,2571 

43145 0 

DLOAD 

BCN 

1 

last 1256 

12,2572 

03775 1 


INDBP 

2 

12,2573 

04311 0 


ORDERS* 

1 


12,2574 

24576 0 


MINCHECX 

1 


12,2575 

00017 1 

STORE 

MAX 



12,2576 

45221 1 

MINCHECk BDSU 

DSU 

1 


12,2577 

00011 1 


MIN 



12,2600 

51000 0 

BOV 

BPL 

I 


12,2601 

24605 1 


MOONGDEL 

2 

last 1256 

12,2602 

24605 1 


MODNGDEL 



12,2603 

77650 1 

GOTO 


1 


12,2604 

24637 0 


DELCK 



12,2605 

45345 1 

moongdel dload 

DSU 

2 

last 1256 

12,2606 

00011 1 


MIN 

2 

last 1256 

12,2607 

03775 1 


INDEP 



12,2610 

52005 0 

DMP 

GOTO 

3 

last 1250 

12,2611 

11514 1 


DPg/io 

1 


12,2612 

24641 1 


NEWDEL 



12,2613 

41345 0 

PIRSTI^e DLOAD 

DMP 

3 

last 1256 

12,2614 

00011 1 


MIN 

1 


12,2615 

00051 0 


TVrEEcIT 



12,2616 

41325 0 

PDDL 

DMP 


20*35 CX?r. 28,1988 SATflAP .OOT PAGE 1258 
USERaS PACE NO. 25 % S3 




PL UP 2 


m CASE 2ND DEHIV. CHANGED SIGN, MUST 
DISfflQAHD IT TO PIND MIN. 


TRIAL DELINDEP 


PC DOi*N 2 


IP NOT 2ND ORDER, CAN MOVE MAX BOUND IN. 



TRIAL DEI,INDEP WCULD EXCEED MIN BaM> 


DIX»D TWEEKITUoD) SENSITIVE TO CHANGE. 

S2(41D) aianiNT contain hi order ones 



20’35 OCT. 28,1988 SATRAP .oot PAGE 125T 



I ■ 




ASSBVIB RBVISICN 249 OP AOC PROQaAM COLOSSUS BT NASA 2021111-041 


L CXMIC StBRQUriNES 


lOSl 

BBF 

2 

MST 1256 

12,2617 

10S2 

BBP 

2 

I>Sr 1256 

12,2620 

1053 




12,2621 

1054 




12,2622 

1055 

REF 

5 

WST 1258 

12,2623 

1056 

sey 

2 

I>Sr 1256 

12,2624 

105T 




12,2625 

1058 

REF 

3 

I^3T 1256 

12,2626 

1059 

IBP 

3 

tASr 1258 

12,2627 

1060 

REF 

1 


12,2630 

1081 

REF 

4 

LAST 1258 

12,2631 

1082 




12,2632 

1063 

HBF 

3 

lASr 1257 

12,26 33 

1064 




12,2834 

1085 

REP 

1 


12,2635 

1066 

REF 

2 

IAST 1257 

12,2636 

106T 




12,2837 

1068 




12,2640 

1089 

REF 

2 

LAST 1256 

12,2641 

lOTO 




12,2642 

lOTl 




12,2643 

10T2 

REF 

4 

last 1257 

12,2644 

10T3 

REF 

4 

last 1257 

12,2645 

10T4 




12,2646 

10T5 

RHF 

4 

last 1256 

12,2647 

10T6 

RBF 

2 

last 1256 

12,2650 

lOTT 

REP 

153 

last 1200 

12,2651 

1078 

BBF 

36 

last 1183 

12,2652 

1079 

Bey 

2 

LAST 1247 

12,2653 

1080 

HBF 

37 

last 1257 

12,2654 

1081 

REP 

3 

last 1257 

12,2655 

1082 

RBF 650 

LAST 1224 

12,2656 

1083 

HEP 

62 

IAST 1169 

12,2657 


00017 1 



msL 

00051 0 



1RB9CIT 

77625 0 


DSO 


52165 1 

- 

8ICM 

QOIO 

0276 2 0 



BBJjer 

24567 0 



SaiCHSCK 

43145 0 

?03XL 

DLOAD 

BQt 

03775 1 



mep 

04311 0 



CHSiar 

24632 0 



mxQBCtc 

00011 1 


STORE 

MIN 

45221 1 

M4xCHECic BDSU 

DSU 

00017 1 



M»X 

50000 1 


BOV 

BHf 

24643 0 



MCDP9H. 

24643 0 



MDDPSH, 

77745 1 

DELQC 

DUMD 


00001 0 



OD 

00015 0 

N&iDBtj 

STORE 

DB^mBP 

77616 0 


RVO 


45 345 1 

MCDpaJEL DLCHD 

DSU 

00017 1 



mx 

03TT5 1 



I^OBP 

52005 0 


CMP 

GOTO 

11514 1 



DP9'10 

24641 1 



NEWa, 

4 4712 0 

OBCkCtR Cs 

(KB 

50 120 1 


INDEX 

PIXLCC 

6 0026 0 


AD 

ITEICni 

50 120 1 


INDEX 

FIXLOC 

54 026 1 


TS 

ITESCIH 

54 154 0 


TS 

>fl*AC 

0 6030 1 


TP 

nwziG 


US8IU3 PAOB HO. 28 S3 


IF NOT 2® OHDER, CAM MOVE MIN BOM) IN 





Assaeif REVISION 249 OP *00 PROORAM COLOSSUS BY NASA 2021111-041 
L CONIC siAtauriNBs 


1084 




12,2660 

44545 0 

NEirSIATB DUMD 

SR4R 

1085 

RBP 

T 

I>ST 1255 

12,2661 

00041 1 


Rl 

1089 




12,2862 

T4225 1 

OSU 

vxsc 

1090 

RHP 

4 

LAST 1255 

12,2663 

00035 1 


XSOCCXI) 

1091 

REP 

3 

last 124T 

12,2664 

02T24 1 


URl 

1092 




12,2665 

653T2 1 

VSLl 

PCDL 

1093 

REP 

21 

last 1255 

12,2866 

00025 0 


X 

1094 




12,266T 

60316 0 

Dsa 

NOIM 

1095 

MS' 

64 

LAST 1256 

12,26T0 

0004T 1 


XI 

1098 




12,2eTl 

5T2T5 0 

DMPR 

DMPR 

109T 

REP 

5 

LAST 1255 

12,28T2 

00023 0 


1/RDOMJ 

1098 

HEP 

22 

last 1258 

12,26T3 

00025 0 


X 

1099 




12,28T4 

53605 1 

DMP 

SRR4 

1100 

RHP 

5 

last 1255 

12,26TS 

00033 1 


S<xl) 

1101 




12,26T6 

215T2 1 


0 -T ,l 

1102 




12,28TT 

TT621 1 

HDSU 


1103 

REP 

16 

last 1255 

12,2T00 

0003T 0 


T 

1104 




12,2T01 

T4352 0 

a,i 

VXSC 

1105 

REP 

15 

LAST 893 

12,2T02 

02T46 0 


WEC 

1106 




12,2103 

533T2 1 

VSLl 

VAD 

HOT 




12,2T04 

41512 1 

VSL4 

puai 

1108 




12,2T05 

TT646 0 

ABVAL 


1109 




12,2T06 

TTTOl 1 

LAf«NTER NOIW 


1110 

REP 

65 

LAST 1258 

.12,2T0T 

0004T 1 


XI 

1111 

REP 

1 


12,2T10 

16T22 1 

STOOL 

H2 

1112 

HEP 

4 

LAST 1254 

12,2TH 

00031 0 


XI 

1113 




12,2T12 

45205 1 

DMP 

DSU 

1114 

REP 

6 

LAST 1258 

12,2T13 

00033 1 


S(XH 

1115 

HEP 

2 

LAST 1252 

12,2T14 

H4T6 1 


Di/128 

1116 




12,2T15 

T6405 1 

DMP 

a,iR 

HIT 

REP 

2 

LAST 1252 

12,2T16 

00021 1 


HOOMU 

1118 




12,2T1T 

53605 1 

DMP 

SLR* 

1119 

REP 

23 

LAST 1258 

12,2T20 

00025 0 


X 

1120 




12,2T21 

2HT6 1 


0 -3,1 

1121 




12,2T22 

T42T1 0 

DOV 

vxsc 

1122 

REP 

2 

LAST 1258 

12,2T23 

02T22 1 


82 

1123 

REP 

4 

LAST 1258 

12,2T24 

02T24 1 


URl 

1124 




12,2T2S 

653T2 1 

va,i 

POOL 

1125 

REP 

5 

LAST 1258 

12,2T26 

00035 1 


XSOC(XI) 

1126 




12,2T2T 

5625T 1 . 

SLR4 

DCV 

H2T 




12,2T30 

2HT5 1 


0 -4,1 

1128 

REP 

3 

LAST 1258 

12,2T31 

02T22 1 


R2 

1129 




12,2T32 

TT62I 1 

BDSU 


1130 

REP 

2 

LAST 1252 

12,2T33 

11512 1 


Dl/256 

1131 




12,2T34 

53361 0 

vxsc 

VAD 

1132 

REP 

16 

LAST 1258 

12,2T35 

02T46 0 


WEC 

1133 




12,2T38 

43412 1 

vsLe 

RVO 


R1I34 


20’35 OCT. 28,1908 SATRAP .OOT PAOB 1258 
US&R«S PAOB NO. 2T Es S3 


0D=(R1-XSQC(XI))UH1 f*33 OR 31> PL AT 6 




PL AT 0 




6D=V2 VEC part (+15 OR 13) PL AT 12 


PL AT 6 






Ill 


AssaCLB RBV^ISION 249 OP AOC PHOtfflAM O0U»SU3 Bif NASA 2021111-041 

cwic amnuriNBs 



113S 

IBP 

1 



04,2000 



BTU3C CCNICSl 

1136 





04,34T2 



bank 


113T 

IBP 

1 






caan 

OA/ccaic 

ni38 

DO NOT DISUSE IHE (SDER OP IHBSE CDS, 

(VEHLAYS have BEIB4 KADE. 

1139 





04,3472 

00000 1 

BEEi7 

DEC 

0 

1140 





04,3473 

04000 0 

Di/8 

2DBC 

1.0 B-3 

1140 





04,3474 

00000 1 




1141 





04,3475 

00200 0 

Di/128 

2DEC 

1.0 B-t 

1141 





04,3476 

00000 1 




1142 





04,3477 

00400 0 

Di/64 

2DEC 

1.0 B-6 

1142 





04,3500 

00000 1 




1143 





04,3501 

10000 0 

Di/4 

2pec 

1.0 B-2 

1143 





04,3502 

00000 1 




1144 





04,3503 

02000 0 

Di/i6 

!Pec 

1.0 B-4 

1144 





04,3504 

00000 1 




1145 . 





04,3505 

01000 0 

Di/32 

2DEC 

1.0 B-5 

1145 





04,3506 

00000 1 




1140 





04,3507 

00020 0 

Di/1024 

2PEC 

1.0 B-10 

1146 





04,3510 

00000 1 




114T 





04,3511 

00100 0 

Di/256 

■gyec 

1.0 B-8 

114T 





04,3512 

00000 1 




1146 





04,3513 

34631 1 

DP9/IO 

2DEC 

.9 

1146 





04,3514 

23146 0 




1149 

IBP 

5 

LAST 

081 

■ 04 , 3455 


kbpzbbo 

EOIALS IXIbZEROS 

1150 





04,3515 

77467 1 

-50SC 

2DEC 

-50.0 B-12 

1150 





04,3516 

77777 0 




1151 





04,3517 

03110 1 

2PI3C 

2DEC 

6.28318530 

1151 





04,3520 

17665 1 




1152 

REP 

2 

LAST 

549 

04,3504 


BEE19 

EOJALS Di/32 -1 

1153 

HEP 

3 

LAST 1258 

04,3510 


BEE22 

EQUALS Di/256 -1 

1154 





04,3521 

00000 1 

(MBIT 

7Pec 

1.0 B-28 

1154- 





04,3522 

00001 0 




1155 





04,3523 

37767 0 

CQGUPLIM 2DeC 

.999511597 

1155 





04,3524 

37737 0 




1156 





04,3523 

40010 1 

COOLOLIM 2DeC 

-.999511591 

1156 





04,3526 

40040 1 




BUST 











20’35 OCT. 28,1968 SATRAP .OOT PAOB 1259 
USIUS PAOB NO. 28 SS 83 


KEEP WITH Di/8 2DBC i.oB-IT (0000004000) 


2DEC 1.0 B-19 (00000 01000) 
2DEC 1.0 B-22 (00000 00100) 



I 


ASSaeiB REVISION 249 OP AOC raOQaAM COLOSSUS BV NASA 2021111-041 
CONIC SlRKXiriNBS 


1158 

REP 

2 

I>ST 1246 

12,2000 


SILOC CCMICS 

1159 




12,2737 


BA(«C 


1160 

REP 

2 lAST 1247 TO 1259’ 

479 479* OOWr 

12/CCNIC 

1161 




12,2737 

40220 0 

timethet to 

SETPD 

1162 

RH' 

1 


12,2740 

02712 1 


HlNTr 

1163 




12,2741 

00001 0 


0 

1164 




12,2742 

63375 0 

VLQAO 

POVL 

1165 

HBP 

11 

LAST 893 

12,2743 

02657 1 


Rt/BC 

1166 

RH» 

17 

last 1258 

12,2744 

02746 0 


WEC 

116T 




12,2745 

77624 1 

CALL 


1168 

REP 

2 

IAST 881 

12,2746 

11527 1 


PARAM 

1169 




12,2747 

45000 0 

B(V 

CALL 

IITO 

REP 

1 


12,2750 

24767 1 


COQACVPL 

llTl 

RH? 

1 


12,2751 

24772 0 


GETX 

11T2 . 




12,2752 

43145 0 

CChWOur DLCWD 

BOl 

11T3 

REP 

5 

last 1258 

12,2753 

00031 0 


XI 

11T4 

REP 

2 

last 893 

12,2754 

04310 1 


INPINPLO 

1175 

REP 

2 

LAST 1280 

12,2755 

02712 1 


HTNTT 

1176 




12,2756 

45014 0 

CLEAR 

CALL 

1177 

REP 

2 

last 893 

12,2757 

04273 0 


CODAPLAO 

1178 

REP 

2 

last 1249 

12,2760 

24426 1 


DELTKE 

1179 




12,2761 

45014 0 

B(N 

CALL 

1180 

REP 

8 

lAST 893 

12,2782 

03706 0 


9/911 

1181 

REP 

3 

LAST 1280 

12,2763 

02712 1 


RINTT 

1182 

REP 

1 


12,2764 

24660 1 


NEdSTATE 

1183 




12,2765 

77650 1 

OOTO 


1184 

RH' 

4 

last 1260 

12,2768 

02712 1 


RTNTT 

1185 




12,2767 

77614 1 

CQGMCVFL SBIGO 


1186 

REP 

3 

LAST 1260 

12,2770 

04033 0 


CCBAPLAO 

1187 

US' 

5 

LAST 1260 

12,2771 

02712 1 


RTNTT 


20’35 OCT. 28,1968 SATRAP .OOT PACE 1260 
USBRaS PAGE NO. 29 ES S3 




PL AT 0 

SETUP POR PARAM CALL PL AT 6 

PL AT 0 





20 ’35 CXJT. 28,1968 SATBAP .OOT PAOS 1261 




I 




Assaeis bb\^isi(m 249 op aoc program couissus by nasa 2021111-041 
L CONIC SUBROUTINBS 


118T2 




•4.3527 


BAMC 

4 

118T4 

REP 

2 

lAST 1239 

04,2000 


«XL0C CONICSl 

118T6 




•4,3327 


hank 


118T8 

REP 

2 last 1259 TO 1260’ 

29 29* 

COUNT* 

maxnic 

1168 




04,3527 

43020 1 PARAM 

STO 

CLEAR 

1189 

REP 

2 

LAST 94 

04,3530 

02755 1 


RmPFM 

1190 

REP 

7 

LAST 650 

04.3531 

03665 1 


NOBMSR 

11901 




04,3532 

77614 1 

clear 


11902 

REP 

4 

LAST 1260 

04,3533 

04273 0 


COOAFLAO 

1191 




04,3534 

45131 0 

SSP 

CALL 

1192 

REP 

3 

lAST 481 

04,3535 

02675 1 


CEmsai 

1193 




04,3530 

27777 0 


37777 

1194 

REP 

1 


04,3537 

11573 0 


GBCM 

1195 




•4,3540 

14045 0 

STCDL 

360 

1196 




•4,3341 

56281.1 

SR 

DOV 

11 9T 




•4,3542 

20606 0 


5 

1198 




04,3543 

00045 0 


380 

1199 

REP 

4 

LAST 861 

04,3544 

33775 1 

STCVL* 

COGA 

1200 

REP 

6 

LAST 1247 

04,3545 

11631 0 


KTlABlE.l 

1201 

REP 

2 

LAST 1247 

04.3546 

14017 1 

STOOL 

1/MI 

1202 

REP 

3 

LAST 94 

04,3547 

02722 1 


MWVEC2 

1203 




04,3550 

60316 0 

DSO 

NOIM 

1204 

REP 

66 

LAST 1258 

04.3551 

00047 1 


XI 

1205 




04,3552 

41275 1 

DHPR 

DMP 

1206 

REP 

3 

LAST 1261 

04,3553 

00017 1 


l/MJ 

1207 

REP 

8 

LAST 1258 

04,3554 

00041 1 


Rl 

1208 




04,3555 

77657 0 

SHR* 


1209 




04,3556 

21576 0 


0 -3,1 

1210 




04,3557 

44206 0 

puai 

BDSU 

1211 

REP 

3 

LAST 1259 

04,3560 

11506 1 


01/32 

1212 

REP 

3 

LAST 861 

04,3561 

16744 1 

STOOL 

RlA 

1213 




04,3562 

60205 0 

DMP 

NORM 

1214 




04,3563 

00045 0 


360 

1215 

REP 

67 

LAST 1261 

04,3564 

00047 1 


XI 

1216 




04,3565 

53605 1 

DMP 

SR* 

1217 




04,3566 

00045 0 


360 

1216 




04,3567 

20575 1 


0 -4,1 

1219 

REP 

3 

LAST 881 

04,3570 

02742 1 

STORE 

P 

1220 




04,3571 

77650 1 

GOTO 


1221 

REP 

3 

LAST 1261 

04,3572 

02755 1 


RINPRM 


USBIkS PAOB NO. 30 Bs 83 


MPACiVivEC, 0 D=RivBC 


PI, AT 6 


OAfMA AUWYS LESS THAN 180DBO 
MPACrSNOA (ti), oD=CSQA (+i) PL AT 2 
36D=SIN (M»« (♦!) PL AT 0 


0D=H1 VlSO/HJ (+6) PL AT 2 

RlA (+6) PL AT 0 


P (+4) 


A8S»«L8 BBVISICM 24S OP AQC PROGRAM OCLOSSUS BY NASA 2021111-041 20*35 GOT. 28,1960 SATRAP .007 PAGE 1262 

. 


1. 

OONIC smKXTTINBS 





OBIteS PAGE NO. 31 

ft S3 

122S 



LAST 94 

04,3573 

77656 1 

CEGH IHIT 


HPAC=V2VBC, oD=B1VEC 

PL AT 6 

1226 

WP 

2 

04,3574 

16714 1 

STGGLi 

02 

02 Ul) 

1227 




04,3575 

00045 0 


380 


1228 

BP 

4 

last 1261 

04,3576 

26722 1 

STCXrt, 

MAavec2 


PL AT 0 

1220 




04,3577 

77656 1 

UNIT 



1230 

BP 

5 

IAST 1258 

04,3600 

02724 1 

8TCRB 

URl 

ORl I*!) 


1231 




04,3601 

72441 0 

DOT 

SLl 


1232 

B8P 

3 

lAST 1262 

04,3602 

02714 1 


02 



1233 




04,3603 

77725 1 

FOX, 

“O / ix'"'' 

Hi r’'' 

ODzCSlH UD 

PL AT 2 

1234 




04,3604 

00045 0 




1235 

BBP 

9 

last 1261 

04,3605 

24041 1 

SKVU 

Hi (*Z9 OR *27 > 


1236 

RB' 

6 

LAST 1262 

04,3606 

02724 1 


mi //'’ 


1237 




04,3607 

78435 1 

VXV 

VSLl 



1238 

OB' 

4 

last 1262 

04,3810 

02714 1 


02 



1239 




04,3611 

75214 1 

BCN 

SIGN 



1240 

BP 

8 

last 1261 

04,3612 

03705 0 


NCR4SH 



1241 

REP 

1 


04,3813 

11625 0 


HAVBiaM 



1242 

lEP 

4 

last 1261 

04,3614 

02675 1 


GECMSGN. ' 



1243 




04,3615 

40056 0 

UNIT 

B(V 



1244 

BP 

1 

LAST 480 

04,3616 

11623 0 


COL INEAR 



1245 

BP 

4 

04,3617 

16676 1 

unitnohm stodl 

UN 

m (+1) 


1240 




04,3620 

00045 0 


36D 


1247 



LAST 1262 

04,3621 

43565 0 

SIGN 

RYO 

MPAC!=»»1H (+ 1 ), 34D=snH.SNTH 

(+2) 

1248 

SB' 

5 

04,3622 

02675 1 


GECMSGN 


1249 




04,36 23 

52162 0 

COLWEAH VSRl 

GOTO 



1250. 

RB' 

1 


04,3624 

11617 1 


UNITNOM 



1251 




04,3625 

75246 0 

HAvENOtW ABVAL 

SIGN 



1252 

RBP 

.8 

last 1262 

04,3626 

02675 1 


GECM9GN 



1253 




04,3627 

77616 0 

RYO 


MPACrSITH (+1), 34D=»nH.SNTH 

(*2) 








20’35 OCT. 28,1968 SATRAP .DOT PAOB 1263 



I 


L. 


ASSBCLB RBVISION 249 OP AOC PROSIAM CCL03S0S BT NASA 2021111-041 

ocNic simxrriNEs 




12S4 




12.2772 




BAf«C 

12 

1255 

BSP 

3 

LAST 1280 

12,2000 




SSTLOC CCNICS 

1256 




12,2772 




BANK 


12585 

BSP 

3- last 1260 TO 1281’ 

27 OOO^ 


COKT 

12/C(MIC 

125T 




12,2772 

66374 

1 

getx 

AXT,2 

SSP 

1258 




12,2773 

00003 

1 



3 

1259 

BPS' 

26 

LAST 1228 

12.2774 

00052 

0 



S2 

1280 




12,2775 

00001 

0 



1 

1261 




12,2778 

77614 

1 


(UAR 


1282 

BPS' 

1 


12,2777 

04276 

0 



360BA 

1283 




12,3000 

65366 

1 


SORT 

PCDL 

1284 

BP9P 

9 

LAST 892 

12,3001 

02734 

0 



csm 

1265 




12,3002 

44342 

1 


SRl 

BDSU 

1288 

BSP 

2 

LAST 32 

12,3003 

11502 

0 



Di/4 

126T 




12,3004 

54325 

1 


POX. 

SRR 

1288 

BBP 

11 

LAST 893 

12,3005 

02732 

0 



anH 

1269 




12,3006 

21607 

0 



8 

1270 




12,3007 

77671 

1 


MV 


1271 




12,3010 

77600 

1 


B<V 


1272 

BSP 

1 


12,3011 

25125 

0 



360OIECK 

1273 




12,3012 

41225 

1 


DSU 

BMP 

1274 

BSP 

5 

LAST 1281 

12,3013 

03775 

1 



(XGA 

1275 




12,3014 

40132 

0 


SLZR 

B(V 

1276 

BPS' 

2 

LAST 1263 

12,3015 

25125 

0 



380(3IECK 

1277 




12,3016 

63406 

0 

WLOOP 

puai 

DSQ 

1278 




12,3017 

65351 

0 


TLQAD 

PDDL 

1279 

BPF 

651 

LAST 1257 

12,3020 

00155 

0 



MPAC 

1280 

BSP 

4 

lAST 1261 

12,3021 

02744 

1 



RlA 

1281 




12,3022 

76202 

0 


504 

WD 

1282 




12,3023 

75440 

0 


EW 

S(XtT 

1283 

BPS' 

1 


12,3024 

25210 

0 



INFINITY 

1284 




12,3025 

43306 

0 


BOl® 

CAD 

1285 




12,3026 

61000 

0 


B(V 

Tlx, 2 

1286 

BEP 

1 


12,3027 

25123 

0 



BESED(2 

1287 

BEP 

1 


12,3030 

25016 

1 



•LOOP 

1288 




12,3031 

40065 

0 


BOOf 

BOV 

1289 

BEP 

3 

LAST 1258 

12,3032 

11476 

1 



Dl/128 

1290 

REP 

2 

LAST 1263 

12,3033 

25210 

0 



INFINITY 

1291 




12,3034 

41440 

1 

POLYCCEP BW 

puai 

1292 

BEP 

3 

LAST 1263 

12,3035 

25210 

0 



INFINITY 

1293 




12,3036 

77716 

1 


DSO 


1294 




12,3037 

41301 

0 


NORM 

DMP 

1295 

REF 

68 

LAST 1261 

12,3040 

00047 

1 



XI 

1296 

REP 

5 

LAST 1263 

12,3041 

02744 

1 



RlA 

1297 




12,3042 

77457 

1 


SOB* 

EXIT 

1298 




12,3043 

21567 

0 



0 -lOD.l 



USBIUS PAOB NO. 32 


ASSl*«S P (+4) IN MPAC 


0D=SQimP) 


0D=W (+5) 
^)rWSO (+10) 


0D=1/W (+2) OR 16A» (+6> 


BS S3 


PL AT 2 

PL AT 40 

H, at 2 

PL AT 0 

PL AT 2 
PL AT 5 

PL at 2 

PL AT OD 


PL AT 2 



Ill 


ASSBBIB REVISION 249 OP AGO PBOGSAM COLOSSUS BY NASA 2021111-041 
CONIC SURKXrrINBS 


20’35 OCT. 28,1968 SATOAP 
USBIUS PACE NO. 33 


.007 PAGE 1264 
ft S3 




1299 

1300 

1301 

1301 

1302 

1302 

1303 

1303 

1304 

1304 

1305 
1305 
1300 
1300 
130T 
130T 


9 last 1254 


12.3044 

12.3045 
12,3040 
12,3047 

12.3050 

12.3051 

12.3052 

12.3053 

12.3054 

12.3055 

12.3056 

12.3057 

12.3060 

12.3061 

12.3062 

12.3063 


0 7171 1 
00005 1 
20000 0 
00000 1 
72525 0 
52471 1 
03146 1 
15003 0 
75556 0 
45210 0 
01615 1 
1355 3 0 
76371 0 
63777 0 
01232 0 
27367 0 


tc poly 

Dec 5 

2DBC .5 

2DBC -.186666770 
2DBC .100000392 
2DBC -.071401086 
2DEC .055503292 
2DEC -.047264098 
2DEC .040694204 


1308 

EBP 232 

last 1254 

12,3064 

0 6006 1 

IC 

IVTPRET 

1309 




12,3065 

76405 1 

CMP 

a,iR 

1310 




12,3066 

43006 0 

puai 

BCN 

1311 

HSP 

2 

LAST 1263 

12.3067 

04316 1 


38 099 

1312 

HtE 

1 


12,3070 

25175 0 


TRUE 36 OX 

1313 




12,3071 

60316 0 

XCCM4CN DSO 

NORM 

1314 

HEP 

S9 

last 1283 

12,3072 

00047 1 


XI 

1315 




12,3073 

53605 1 

DMP 

SRRt 

1316 

HEP 

6 

LAST 1283 

12,3074 

02744 1 


RlA 

131T 




12,3075 

21565 1 


0 -12D,1 

1318 

HS' 

6 

LAST 1260 

12,3076 

14031 0 

STOOL 

XI 

1319 

HH' 

10 

LAST 1282 

12,3077 

00041 1 


Hi 

1320 




12,3100 

75542 0 

Sll 

SORT 

1321 




12,3101 

41306 1 

ROUND 

DMP 

1322 




12,3102 

77632 0 

SL4R 


1323 

HEP 

24 

LAST 1258 

12,3103 

00025 0 

STORE 

X 

1324 




12,3104 

60316 0 

DSO 

NORM 

1325 

HEP 

70 

LAST 1264 

12,3105 

00047 1 


XI 

1326 




12,3106 

41325 0 

POOL 

DMP 

1327 

HEP 

4 

LAST 1261 

12,3107 

02742 1 


P 

1328 

REP 

11 

LAST 1264 

12,3110 

00041 1 


Rl 

1329 




12,3111 

75452 0 

a-3 

SORT 

1330 




12,3112 

56405 0 

DMP 

SL3H 

1331 

REP 

6 

LAST 1263 

12,3113 

03775 1 


COQA 

1332 

REP 

3 

LAST 1255 

12,3114 

14043 0 

STOOL 

KEPCi 

1333 

REP 

7 

LAST 1264 

12,3115 

02744 1 


RlA 

1334 




12,3116 

43021 0 

BDSU 

CLEAR 

1335 

REP 

3 

LAST 1247 

12,3117 

11500 1 


Di/64 

1338 

HEP 

3 

last 1260 

12,3120 

04270 0 


WINFl^ 

1337 

REP 

3 

LAST 1255 

12,3121 

00045 0 

STORE 

KEPC2 


PL AT OD 


XI I+O) 

X (+17 OR +16) 

ODrXSO (+34 OR +32 -ND 


PL AT 0 


PI, at 2 






20*35 OCT. 2S,1»68 SATRAP .OOT PAOB 1285 



ASSBOIB RBVISION 249 OP AOC PROGRAM COLOSSUS BT NASA 2021111-041 
CONIC siRarriNBs 


USBR.S PAOB NO. - 34 Bs S3 



1338 




12,3122 

77616 

0 


KfO 




1339 




12^3123 

77774 

0 

HBSSIX2 

AXT,2 




1340 




12,3124 

00003 

1 



3 



1341 




12,3125 

51001 

1 

360Qffiqc SETPO 

BPL 



1342 




12,3128 

00001 

0 



oo 



1343 

BSP 

1 


12,3127 

25132 

0 



INVRSeON 



1344 




12,3130 

77814 

1 


SET 




1345 

BSP 

3 

lAST 1284 

12,3131 

04076 

1 



360SR 



1348 




12,3132 

75545 

1 

isvssexsi DLQAD 

SORT 



134T 

BSP 

5 

lAST 1264 

12,3133 

02742 

1 



P 



1348 ' 




12,3134 

41325 

0 


POOL 

CMP 

0D=SQRT<P> {♦2> 

PL AT 2 

1349 

I«P 

12 

last 1263 

12,3135 

02732 

0 



»OH 



1350 

BSP 

7 

lAST 1264 

12,3136 

03775 

1 



COOA 



1351 




12,3137 

65 352 

0 


SLl 

POOL 

2 D=airH COOA (* 5 ) 

PL AT 4 

1352 

BSP 

10 

lAST 1283 

12,3140 

02734 

0 



CSTH 



1353 




12,3141 

43202 

0 


SR4 

DAO 



1354 

RBP 

4 

lAST 1261 

12,3142 

11506 

1 



Di/32 



1355 




12,3143 

41225 

1 


DSU 

CMP 


PL AT 2,0 

1358 




12,3144 

55301 

0 


NORM 

BDDV 



135T 

BSP 

71 

LAST 1264 

12,3145 

00047 

1 



XI 



1358 

BSP 

13 

LAST 1265 

12,3148 

02732 

0 



SJ1H 



1359 




12,3147 

51457 

0 


SLR* 

ABS 

NOTE’ near 360 CASE TBEATBD DIPFE5«NTLY 

1360 




12,3150 

21174 

0 



0 -5,1 



1381 




12,3151 

83406 

0 


puai 

DSO 

0 D= 1 /W (- 1 ) 

PL AT 2 

1382 




12,3152 

14043 

0 


STOOL 

34D 



1383 

BSP 

1 


12,3153 

11504 

0 



Di/16 



1384 




12,3154 

63406 

0 

1 /WLOOP 

puai 

DSO 

2 D=G (+4> 

PL AT 4 

1385 




12,3155 

65234 

1 


RIB 

POOL 


PL AT 7 

1368 

RBP 

12 

LAST 1255 

12,3156 

45562 

1 



OTMCOG 



136T 

RBP 

8 

IAST 1264 

12,3157 

02744 

1 



RlA 



1368 




12,3160 

40405 

1 


CMP 

SR4 



1369 




12,3161 

00043 

0 



34 D 



13T0 




12,3162 

77771 

0 


TAD 



PL AT 4 

13T1 




12,3163 

75440 

0 



SORT 



13T2 

RBP 

4 

LAST 1263 

12,3164 

25210 

0 



iNPwm 



13T3 




12,3165 

77615 

0 


DAO 



PL AT 2 

13T4 




12,3166 

60304 

0 


TIX,2 

NOEW’ 



1375 

REP 

1 


12,3167 

25154 

0 



1/WLOOP 



1376 

RBP 

72 

LAST 1265 

12,3170 

00047 

1 



XI 



1377 




12,3171 

77665 

1 


BDCV 



PL AT 0 

1378 




12,3172 

52057 

1 


SLR* 

GOTO 



1379 




12,3173 

21172 

0 



0 -7,1 



1380 

BSP 

1 


12,3174 

25034 

1 



POLYCC0P 






Jl 


Assaeia rbvisicm 249 op aoc pbogiwm colossus bt hasa 2021111-041 

OCMIC smKUriNBS 


1381 




12,31T5 

50145 

1 

insseox oloui 


1382 


9 

AAST 1285 

12,31T6 

02T44 

1 


RlA 

1383 

RBP 

S 

IAST 1285 

12,31TT 

25210 

0 


INFINITY 

1384 




12,3200 

60386 

1 

StST 

NOEM 

1385 

REP 

T3 

IAST 1265 

12,3201 

0004T 

1 


Xl 

1386 




12.3202 

53665 

1 

boom 

SLNt 

138T 

RQ^ 

3 

IAST 1248 

12.3203 

11520 

0 


2PI3C 

1388 




12.3204 

201T6 

0 


0 -3,1 

1389 




12,3205 

41425 

1 

DSU 

rusi 

1390 




12,3206 

TT650 

1 

goto 


1391 

RSP 

1 


12,320T 

250T1 

0 


XCOMCM 

1392 




12,3210 

40001 

1 

INPINITif SBlTD 

B<V 

1393 




12,3211 

00001 

0 


0 

1394 

RBP 

1 


12,3212 

25213 

0 


(VPLCLR 

1395 




12,3213 

43414 

1 

ovplclh set 


1396 

RSP 

4 

last 1264 

12,3214 

040TO 

1 


INFINPLO 


20’35 OOr. 28.1908 SATRAP .OOT PAOB 1288 
USBRkS pace no. 35 ^ S3- 




0D=2PI/SCMT<HiA) -X 


fA, AT 0,2 


NO SCLUTICW EXISTS SINCE CLOSURE THROUCH 
INPINITV IS REOUIRS) 






HI 


ilSaeCLB BSVISION 249 OP AOC PROQBAM COLOSSUS BY MASA 2021111-041 
CQHIC aiBEtOUriNES 


20’35 (XTr. 28.1988 SATBAP .OOT PAGE 126T 
UShtS PACE NO. 38 Bs S3 


13tT 




12,3215 

40220 0 

lA'CEBT STO 

SETPO 



1388 

■9P 

5 

LAST 94 

12,3216 

02712 1 


]t]NLA^e 



1398 




12,3217 

00001 0 


OD 



1400 




12,3220 

76731 0 

SSP 

VLOAD* 



1401 


4 

last 125T 

12,3221 

00027 1 


ITBWJm 



1402 




12,3222 

00024 1 


20D 



1403 

VF 

T 

LAST 1281 

12,3223 

11631 0 


HJMBLE.i 



1404 

ter 

4 

LAST 1281 

12,3224 

14017 1 

STCDL 

1/NU 



140S 

tee 

3 

LAST 480 

12,3225 

02673 1 


1DBSIRS> 



1408 




12,3228 

77875 0 

CMPR 




140T 

tee 

1 


12,3227 

11505 1 


BEBlS- 



1408 

ter 

1 


12,3230 

03777 0 

STORE 

BPSILCNL 



1409 




12,3231 

77214 0 

ffiT 

VU»D 



1410 

ter 

2 

LAST 1258 

12,3232 

00474 0 


aXIPESH 




1411 

tee 

8 

LAST 481 

12,3233 

02657 1 


BlVEG 



1412 




12,3234 

45115 0 

PDVL 

CALL 

ODrRlVBC (+29 OR ♦27) 

PL AT 6 

1413 

ter 

10 

LAST 482 

12,3235 

02685 0 


H2VEC 

MPAC=H2VBC (*29 OR +27) 


1414 

ter 

2 

LAST 1281 

12,3236 

11573 0 


GE04 



1415 

ter 

14 

LAST 1285 

12,3237 

16732 0 

STOOL 

S11H 

ODzCSDf t+D 

PL AT 2 

1418 

tee 

5 

LAST 1262 

12,3240 

02722 1 


MAOVEC2 



141T 




12,3241 

65301 0 

NOEM 

FOOL 


PL AT 4 

1418 

ter 

T4 

LAST 1286 

12,3242 

00047 1 


XI 



1419 

ter 

12 

LAST 1264 

12,3243 

00041 1 


Hi 



1420 




12,3244 

56342 1 

SRl 

EOV 


PL AT 2 

1421 




12,3245 

65257 1 

9-* 

POOL 

DXCH WITH oD, 0 D=Ri/R 2 f+ 7 ) 

PL AT 0,2 

1422 




12.3248 

20173 0 


0 -8,1 



1423 




12,3247 

77626 0 

S»DR 




1424 

ter 

11 

LAST 1285 

12,3250 

75043 1 

STOBB 

CSIH 

csm c+D 


1425 




12,3251 

44342 1 

sai 

HDSU 



1428 

ter 

3 

LAST 1263 

12,3252 

11502 0 


Di /4 



142T 

ter 

2 

LAST 94 

12,3253 

02738 1 

STOBB 

1-CSTH 

i-csm t+2) 


1428 




12,3254 

53106 0 

HOUND 

B2B 



1429 

ter 

1 


12,3255 

25465 1 


SeoLAHB 

. ... .. ... . — ... 


1430 




12,3256 

65301 0 

NOPM 

POOL 


PL AT 4 

1431 

mr 

T5 

LAST 1287 

12,3257 

00047 1 


XI 



1432 




12,3260 

00001 0 


OD 



1433 




12,3281 

56342 1 

SRl 

nv 


PL AT 2 

1434 




12,3282 

75457 0 

SU* 

SORT 



1435 




12,3263 

20176 0 


0 -3,1 



1438 




12,3264 

54325 1 

POOL 

SR 

2D=SaBT<2Bl/B2fl-CSTH)) (+5) 

PL AT 4 

143T 

ter 

IS 

LAST 1267 

12,3265 

027 32 0 


S11H 



1438 




12,3266 

20607 1 


6 



1439 




12,3267 

43271 1 

DOV 

HAD 


PL AT 2 

1440 

tee 

3 

LAST 1267 

12,3270 

02736 1 


i-csm 



14401 




12,3271 

77626 0 

S»DR 




14402 

ter 

1 


12,3272 

77760 0 

STOBB 

COOV4AX 



1441 




12,3273 

50000 1 

BCV 


IP om,. COGSWXrCOGUPl.IM 


1442 

ter 

1 


12,3274 

25301 1 


UPt,IM 

IP NBG, USE EVEN IP I.T COCa.ajM, SINCE 

14421 

ter 

1 


12,3275 

25304 1 


WxCOQA 

THIS HaUD BE reset IN lAWI.OOP 



ASSBWi RB\rISICN 249 OP AQC PRCWWM COLOSSUS BY I«SA 2021141-041 
COMIC SlRlQUriNES 


14422 




12,3276 

50025 0 


DSU 

M4 

14423 

RBP 

1 


12,3277 

11524 1 



CQOUFLIM 

14424 

BEP 

2 

last 1267 

12,3300 

25304 1 



mxPooA 

14425 




12,3301 

77745 1 

UPLM 

DLQAO 


14426 

BEP 

2 

lAST 1268 

12,3302 

11524 1 



COGUPLW 

14427 

RBP 

2 

last 1267 

12,3303 

00017 1 


STORE 

COGAHAx 

1443 




12,3304 

77745 1 

MAxCOOA 

DLOAO 


1444 

REP 

12 

last 1267 

12,3305 

02734 0 



csm 

1445 




12,3306 

45261 0 


SR 

DSO 

1448 




12,3307 

20607 1 



8 

1447 




12,3310 

77626 0 


SWDR 


1448 

BEP 

2 

UST 94 

12,3311 

61037 1 


STOOL 

csn-mo 

1449 

BEP 

7 

LAST 1262 

12,3312 

02675 1 



GECKSGM 

1450 




12,3313 

71240 1 


Ml 

DLQAO 

1451 


1 


12,3314 

25505 0 



LOLW 

1452 

BEP 

3 

LAST 1268 

12,3315 

02740 0 



CSIH-IHO 

1453 




12,3316 

56 35 2 0 


3Ll 

DOY 

1454 

BEP 

16 

last 1267 

12,3317 

02732 0 




1455 




12,3320 

77600 1 


boy 


1456 

RBP 

2 

LAST 1268 

12,3321 

25505 0 



LCLW 

1457 

nEP 

1 


12,3322 

00011 1 

MINCOGA 

STOHE 

COQAMW 

1458 




12,3323 

66214 0 


B(M 

SSP 

1459 

BEP 

4 

LAST 679 

12,3324 

00715 1 



GUBSSP 

1460 

BEP 

1 


12,3325 

25471 1 



NOGUBSS 

1461 

REP 

3 

last 1257 

12,3326 

00051 0 



TWSklT 

1482 




12,3327 

00001 0 



00001 

1463 




12,3330 

77745 1 


DLQAO 


1484 

BEP 

8 

last 1265 

12,3331 

' 03775 1 



COGA 

1465 




12,3332 

77605 1 

LA?«LOOP DMP 


1466 

REP 

17 

last 1268 

12,3333 

02732 0 



SNTH 


20’35 OCT. 28,1968 SATHAP .OOT PAGE 1268 
USBRaS PAOB NO. 3T Ej S3 

IF COQAWX or COGUPLW, C0GWM4x=C0auPLIM 
omErariffl ck, so oo to mxcooA 


COOlPLIMr. 999511597 = I«X VAUB OP COGW 
NOT CAUSING OVPL IN RiA CALCULATICN 


PL AT 0 


COGWMIN (+5) 


1487 

1488 HBF 


1489 

1470 HEP 

1471 KF 

1472 

1473 

1474 

1475 BEP 

1476 REP 

1477 RHP 

1478 REP 

1479 

1480 REP 

1481 

1482 BEP 

1483 BEP 

1484 


4 LAST 1268 


78 LAST 1 267 
4 LAST 1267 


2 LAST 1268 
6 LAST 1265 
9 LAST 1268 


77 LAST 1268 
7 LAST 1268 


12.3334 

12.3335 

12.3336 

12.3337 

12.3340 

12.3341 

12.3342 

12.3343 

12.3344 

12.3345 

12.3346 

12.3347 

12.3350 

12.3351 

12.3352 

12.3353 

12.3354 

12.3355 


45342 0 
02740 0 
85301 0 
00047 1 
02736 1 
56257 1 
20170 0 
53040 0 
25421 1 
25421 1 
16742 1 
03775 1 
43316 1 
11510 0 
41301 0 
00047 1 
02742 1 
44257 1 


SRl DSU 

csiH-mo 

NOIM POOL 
XI 

1-CsiH 

SLA tXV 

0 -90,1 
BM4 BzE 
NBGP 
NBBP 
STOOL P 

COGA 

DSO DAD 

Di/ 1024 
NOfW DP1P 
XI 
P 

3B4 HDSU 


0D=S4IH COGA-ICSTH-mO) (+7+C(xl)) PL=2 


I-CSIH (+2) 


PL AT 0 




P=( 1 -CS 1 H)/(SS 1 H COGA-(CSIH-HHO)) (+ 4 ) 








ASSOetE BgVISIQN 249 CP AOC FfKXStAM COUtSSUS By NASA 2021111-041 
COMIC SlftWlTTINES 


1485 




12.3356 

20571 

d 



0 -8D,1 

1486 

REP 

5 

lAST 1265 

12.3357 

11506 

1 



Dl/32 

1487 

RB' 

10 

lAST 1266 

12.3360 

16744 

1 


STCDL, 

RlA 

1488 

REP 

8 

IAST 1288 

12.3381 

02742 

1 



r 

1489 




12.3362 

45000 

0 


Bar 

CALL 

1490 

REP 

1 


12.3383 

25424 

1 



HieiERGY 

1491 

HEP 

2 

lAST 1260 

12.3364 

24772 

0 



GETX 

1492 




12.3385 

77745 

1 


DLOAO 


1493 

REP 

17 

lAsr 1258 

12.3380 

00037 

0 



T 

1494 

REP 

1 


12.3367 

16764 

b 


STCDL 

TPREV 

1495 

REP 

7 

LAST 1264 

12.3370 

00031 

0 



XI 

1496 




12.3371 

45014 

0 


B04 

CALL 

1497 

HEP 

5 

LAST 1268 

12.3372 

04310 

1 



INPINPLG 

1498 

REP 

3 

LAST 1268 

12.3373 

25421 

1 



NBOP 

1499 

HEP 

3 

lAST 1260 

12.3374 

24426 

1 



DELTD* 

1500 




12.3375 

44200 

0 


BOV 

BDSU 

1501 

REP 

1 


12.3376 

25441 

1 



BIGTL'« 

1502 

REP 

4 

LAST 1287 

12.3377 

026 7 3 

1 



TDBSIHH) 

1503 

HEP 

1 


12.3400 

02762 

0 


STORE 

TERHIAJ* 

1504 




12.3401 

44246 

1 


ABS 

BDSU 

1505 

HEP 

2 

LAST 1267 

12.3402 

03777 

0 



EPSILCNL 

1500 




12.3403 

47044 

1 


BPL 

RIB 

1507 

REP 

1 


12,3404 

25510 

1 



INITV 

1508 

REP 

2 

LAST 1250 

12,3405 

24651 

0 



CHECkCTR 

1509 




12,3408 

45030 

0 


BHIZ 

CALL 

1510 

REP 

1 


12.3407 

2545 2 

0 



SUFPCHQC 

1511 

HEP 

1 


12.3410 

24543 

0 



ITERATOR 

1512 




12,3411 

53145 

1 


DLQAD 

BzE 

1513 

REP 

652 

LAST 1283 

12,3412 

00155 

0 



MPAC 

1514 

BBF 

2 

LAST 1269 

12.3413 

25452 

0 



SUFPWEK 

1515 




12,3414 

77615 

0 


DAD 


1516 

REP 

10 

LAST 1268 

12,3415 

03775 

1 



COQA 

1517 

HEP 

11 

LAST 1269 

12,3416 

03775 

1 


STORE 

CODA 

1518 




12.3417 

77650 

1 


GOTO 


1519 

REP 

1 


12,3420 

25 332 

1 



lAHBLOOP 

1520 




12,3421 

51145 

0 

NEG!P 

DLCAD 

BPL 

1521 

REP 

1 


12,3422- 

00015 

0 



DCOQA 

1522 

REP 

1 


12.3423 

25444 

1 



LO&IEHDY 

1523 




12.3424 

71201 

1 

HIBWHGY SETPO 

DLQAD 

1524 




12.3425 

00001 

0 



0 

1525 

REP 

12 

LAST 1269 

12,3426 

03775 

1 



CODA 

1528 

REP 

2 

LAST 1268 

12,3427 

00011 

1 


STORE 

COGAMIN 

1527 




12,3430 

70545 

1 

CCKMCNLM DUMD 

SRI 

1528 

REP 

2 

LAST 1269 

12,3431 

00015 

0 



DCOQA 

1529 

I«P 

3 

LAST 1269 

12,3432 

00015 

0 


STORE 

DCOGW 


20*35 OCT. 28,1968 SATRAP .007 PAOB 1269 
USEHaiS PAOB NO. 38 85 S3 

BlA=2-P(l+C0aA COQA) (tB) 


HAVE EXC^DBD THEORETICAL BOUNDS 


IMPOSSIBIE, trajectory Dt® TO INACCURATE 
BOUND CALCUIATICN. TRY NEW COGA. 

HIGH energy trajectory RESULTED 

IN OVEL OP P OR RiA, OR XI EXCEEDING so. 
THIS IS THE NEW BOUND. 


USE DCOGA/2 as DeCBE«NT 



I 


*Sa»BLB REVISION 249 OP AOC PHO®AM COLOgSUS BV NASA 20211U-041 
CONIC SOBROOTINES 




1S30 

1S301 

BB' 

3 

last 1269 

1S31 

lep 

13 

IAST 1269 

1532 

REP 

14 

IAST 1270 

1533 

1534 

in' 

2 

last 1289 

1535 

1538 

REP 

2 

last 1269 

1537 

RBE 

18 

last 1289 

1538 

1539 

1540 

■BP 

15 

last 1270 

1541 

RBP 

3 

LAST 1268 

1542 

1543 

RBP 

1 


1544 

1545 

HP 

2 

last 1269 

1548 

1547 

REP 

5 

last 1269 

1548 

REP 

4 

LAST 1267 

1549 

1550 

IBP 

1 


1551 

1552 

REP 

2 

last 1269 

1553 

REP 

1 


1554 

RBP 

6 

LAST 1267 

1555 

1558 

1557 

REP 

2 

last 1270 

1558 

REP 

7 

LAST 1270 

1559 

1560 

RB^ 

4 

LAST 1268 

1581 

1562 

REP 

3 

last 1289 

1583 

1584 

REP 

4 

last 1270 

1585 

1586 
1567 

RBP 

16 

LAST 1270 

1508 

RBP 

4 

last 1269 


12,3433 

44254 1 


Bzg 

BDSU 

12,3434 

25452 0 



SUPPCWC 

12,3435 

03775 1 



CQGA 

12,3436 

03775 1 


STORE 

OOCM 

12,3437 

77650 1 


OOTO 


12,3440 

25332 1 



lAbCUlOP 

12,3441 

77745 1 

BKTribB 

DLOAO 


12,3442 

02764 0 



TPHEV 

12,3443 

00037 0 


STORE 

T 

12,3444 

71201 1 

LCBIEHSV ffiTPO 

DUHD 

12,3445 

00001 0 



0 

12,3446 

03775 1 



oaoA 

12,3447 

00017 1 


STORE 

COOAMAX 

12,3450 

77650 1 


GOTO 


12,3451 

25430 1 



COHCNU4 

12,3452 

51545 1 

SUPPCHBc DLCMO 

ABS 

12,3453 

02762 0 



TERfRAfi 

12,3454 

41325 0 


POOL 

DMP 

12,3455 

02673 1 



TDBSIRBD 

12,3456 

11502 0 



D1/4 

12,3457 

45215 0 


OMO 

DSU 

12,3460 

11522 1 



Q4EB1T 

12,3461 

43044 0 


BPL 

»lGO 

12,3462 

25510 1 



INITV 

12,3463 

02434 0 



SCXHSW 

12,3464 

02712 1 



RINLAJ* 

12,3465 

43001 1 

360LAbe 

SETPD 

®TGO 

12,3466 

00001 0 



0 

12,3467 

02434 0 



SCLNSW 

12,3470 

02712 1 



BWLAVB 

12,3471 

71331 0 

NOGIBSS 

SSP 

DLOAO 

12,3472 

00051 0 



TWHQCIT 

12,3473 

10000 0 



20000 

12,3474 

00011 1 



COGA 4 IN 

12,3475 

65 342 1 


3Bl 

POOL 

12,3476 

00017 1 



CQQAMAx 

12,3477 

4334 2 0 


SRl 

DAD 

12,3500 

77626 0 


STADR 


12,3501 

74002 0 


STORE 

COEM 

12,35 02 

00015 0 


STORE 

DCOOA 


20’35 OCT. 28,1968 SATRAP .flOT PAOE 1270 
USSRkS PAOB no. 39 B5 S3 


bbsiaht this loop 


LO» effinsv THAJEOTOHlf RBSULTHD 

IN o/BanjOK OP Tibe. 

THIS IS THE NEW BCU®. 




PL AT 20 
PL AT OD 


lAveERT CANNOT HANDLE CS1H=1 


PL AT 2 


PL AT 0 





20*35 OCT. 28,1998 SATRAP .007 PAOB 1271 


ASSBflLS RBVISICN 249 


GP AOC PRO^AM COUISSUS BY NASA 2021111-041 


OQKIC SlBROUTINBS 


USBIUS PAOB NO. 40 % S3 


1589 




12,3503 

77650 

1 

o 

. ^ 

Gcno 


1570 

BBP 

3 

LAST 1270 

12,3504 

25332 

1 

t 


uueLoap 

1574 




12,3505 

52145 

0 

LOLIM 

DLOAD 

GOTO 

1575 

REP 

1 


12,3508 

11526 

0 



CtCULIM 

1576 

HEP 

1 


12,3507 

25 322 

0 



HINCaGA 

1577 




12,3510 

60345 

0 

WITV 

CLOW 

HOEM 

1578 

HEP 

13 

LAST 1287 

12,3511 

00041 

1 



Rl 

1579 

HEP 

78 

LAST 1268 

12,3512 

00047 

1 



XI 

1580 




12,3513 

70525 

1 


noL 

SBl 

1581 

HEP 

9 

LAST 1289 

12,3514 

02742 

1 



P 

1582 




12,3515 

77671 

1 


DIV 


1583 




12,3518 

75457 

0 



SOELT 

1584 




•12,3517 

20175 

0 



0 -4,1 

1585 




12,3520 

72405 

0 


IMP 

SLl 

1586 

HEP 

3 

lAST 1258 

12.3521 

00021 

1 



HOOIMI 

1587 




12,3522 

41206 

0 


fuai 

BMP 

1588 

REP 

17 

LAST 1270 

12,35 23 

03775 

1 



COCA 

1589 




12,3524 

74261 

1 


9, 

VXSC 

1590 




12,3525 

20206 

1 



5 

1591 

HEP 

7 

LAST 1262 

12,3526 

02724 

1 



GRl 

1592 




12,3527 

77725 

1 


noL 


1593 




12,3530 

76561 

1 


vxsc 

va,i 

1594 

REP 

5 

LAST 1282 

12,3531 

02876 

1 



UN 

1595 




12,3532 

53235 

0 


vxv 

VAO 

1598 

REP 

8 

LAST 1271 

12,35 33 

02724 

1 



URl 

1597 




12,3534 

43172 

1 


va-i 

CLEAR 

1598 

HEP 

3 

LAST 1270 

12,3535 

02674 

0 



SONS* 

1599 

REP 

18 

LAST 1260 

12,3536 

02746 

0 


STORE 

WEC 

1600 




12,3537 

53135 

0 


SLOW 


1601 

HEP 

5 

LAST 482 

12,3540 

02704 

0 



VWHGBAG 

1602 

REP 

1 


12,3541 

25544 

0 



TAHGETV 

1603 




12,3542 

77650 

1 


GOTO 


1604 

HEP 

8 

LAST 1270 

12,3543 

027 1 2 

1 



HTNIA'fl 

1605 




12,3544 

45145 

0 

rmsceiv 

BLOW 

GALL 

1606 

HEP 

6 

LAST 1267 

12,3545 

027 22 

1 



14JGVEC2 

1607 

REP 

1 


12,3546 

24706 

0 



LA'®nER 

1608 

REP 

4 

LAST 482 

12,3547 

02705 

1 


STORE 

VTOHGBT 

1609 




12,3550 

77650 

1 


GOTO 


1610 

REP 

9 

LAST 1271 

12,3551 

02712 

1 



HINIA'B 


COOLOLIM:-. 999511597 


PL AT 2 


PL AT 0 


0D=VTAN (+7) 


PL AT 2 


XCH WITH OD 


PL AT 0,6 


PL AT 0 







20’35 OOr. 28,1968 SATRAP .OOT PAGE 1272 



ASS»«LB revision 249 OP ACC PHOGBAM COLOSSUS BY NASA 2021111-041 


L 

OWIC Sl»WUriNES 





ISll 




12,3552 

40220 0 

TIMBRAD STO 

SETPD 

1812 

REP 

1 


12,3553 

02712 1 


RINTO 

1813 




12,3554 

00001 0 


0 

1814 




12,3555 

63375 0 

VLQAD 

1 PDVL 

1815 

BBE 

12 

last 1260 

12,3556 

02857 1 


RVEC 

1818 

HEP 

19 

last 1271 

12,3557 

02746 0 


WEC 

1817 




12,3560 

77824 1 

CALL 


1818 

HEP 

3 

last 1260 

12,3561 

11527 1 


PARAM 

1819 




12,3562 

71200 0 

BOV 

DLOAO 

1820 

REP 

2 

last 1260 

12,3563 

24767 1 


COQAOVPL 

1821 

RBP 

6 

last 1269 

12,3564 

11506 1 


Di/32 

1822 




12,3565 

41225 1 

DSU 

DMP 

1823 

REP 

11 

last 1269 

12,3566 

02744 1 


RlA 

1824 

REEP 

10 

last 1271 

12,3567 

02742 1 


P 

1825 




12,3570 

41386 1 

SORT 

EMP 

1828 

REP 

18 

last 1271 

12,3571 

03775 1 


COOA 

1827 




12,3572 

T4212 0 

au 

VXSC 

1828 

REP 

5 

LAST 1262 

12,3573 

02714 1 


U2 

1829 




12,3574 

45325 1 

POOL 

DSU 

1830 

RBP 

4 

last 1264 

12,3575 

11500 1 


Di/s4 

1831 

RBP 

12 

last 1272 

12,3576 

02744 1 


BlA 

1832 




12,3577 

52361 1 

VX9C 

vsu 

1833 

REP 

9 

last 1271 

12,3600 

02724 1 


URl 

1834 




12,3601 

53512 1 

VS1,4 

UNIT 

18345 




12,3602 

77600 1 

BOV 


18348 

RHP 

2 

last 1267 

12,3603 

25465 1 


3eoiA»n 

1835 




12,3604 

60325 0 

pool. 

NORM 

1838 

BSP 

5 

LAST 863 

12,3605 

02760 1 


HOesiRS) 

1837 

RBP 

T9 

last 1271 

12,3606 

00047 1 


XI 

1838 




12,3607 

41325 0 

POOL 

OMP 

1839 

RSP 

14 

last 1271 

12,3610 

00041 1 


Hi 

1840 

REP 

11 

last 1272 

12,3611 

02742 1 


p 

1841 




12,3612 

56257 1 

SLAt 

OOV 

1842 




12,3613 

20201 0 


0,1 

1843 




12,3614 

56225 1 

DSU 

OOV 

1844 

REP • 

2 

LAST 1265 

12,3615 

11504 0 


Di/16 

1845 




12,3616 

00045 0 


38D 

1848 

REP 

1 


12,3617 

00031 0 

STORE 

COSP 

1847 




12,3620 

63400 0 

BOv 

DSO 

1848 

RSP 

1 


12,3621 

25661 1 


badrz 

1849 




12,36 22 

50021 1 

BDSU 


1850 

RBP 

5 

LAST 1270 

12,3623 

11502 0 


Di/4 

18505 

REP 

2 

LAST 1272 

12,3624 

25681 1 


BADR2 

1851 




12,3625 

75366 0 

SORT 

Slew 

1852 

REP 

4 

LAST 863 

12,3626 

02757 0 


SGNBDOT 

18525 




12,3627 

77614 1 

CLEAR 


1653 

RBP 

1 


12,3830 

04272 1 


APSESW 

1654 




12,3631 

76561 1 

TERWEC VXSC 

vsi,i 

1655 

REP. 

8 

LAST 1271 

12,3632 

02676 1 


UN 


i 

USERoS PACE NO. 41 ^ S3 

PL AT 0 

PL AT e 

PL AT 0 


PL AT 6 

PL AT 0 


NO SClimCN SINCE COJIC Is A circle 
OO rUNIT(ECC) (+ 3 ) PL AT 8 

38D=ECC (+3) 


PL AT 8 


36D=ECC (+3) 


PL AT 6 





ASS»«£ BBV^ISION 249 OP AOC PROtSIAM COU3SSU3 NASA 2021111-041 


20’35 OCT. 28,1968 SATRAP .001 PAOB 1213 


CQHic sumorriNEs 


useus PAOB NO. 42 Bs S3 


165S 




12,3633 ' 

.63235 

0 


vxv 

POVL 

1651 




12,3634 

00001 

0 



OD 

1656 




12,3635 

5338lv0 


VX3C 

VAD 

1659 

REP 

2 

lAST 1212 

12,3636 

00031 




COSP 

1660 




12,3631 

41512 

1 

\ 

VSLl 


1681 




12,3640 

56241 

0 

\ 

DOT 

DOV 

1682 


10 

lAST 1212 

12,3641 

02124 

1 

\ 


URl 

16622 

RBP 

1 


12,3642 

23701 

0 



DPI/4 

16624 




12,3643 

40142 

1 


SRl 

BOV 

16625 




12,3844 

25645 

1 



♦1 

1663 

aep 

13 

LAST 1268 

12,3645 

26734 

0 


SKVL 

CSTH 

1664 

IBP 

11 

LAST 1213 

12,3846 

02724 

1 



URl 

1665 




12,3641 

76435 

1 


VXV 

va.1 

1666 




12,3850 

12441 

0 


DOT 

9.1 

1661 

■BP 

1 

LAST 1212 

12,3651 

02676 

1 



UN 

1668 

■BP 

18 

LAST 1268 

12,365 2 

16732 

0 


STCDL 

SNTH 

1669 

VP 

12 

LAST 1212 

12,3653 

02742 

i 



P 

1610 




12,3854 

17624 

1 


CALL 


1611 

■BP 

3 

LAST 1269 

12,3655 

24772 

0 



GETX 

1612 




12,3656 

77614 

1 


CLRQO 


16125 

«P 

4 

LAST 1211 

12,3651 

02634 

1 



SCLNSW 

1613 

■BP 

1 


12,3660 

24752 

1 



cowarr 

1614 




12,3661 

75345 

1 

RADRa 

DLC«D 

Slew 

16141 

RBP 

2 

LAST 616 

12,3662 

11454 

1 



LODPHALP 

16142 

IBP 

3 

LAST 1213 

12,366 3 

00031 

0 



COSP 

16143 

■BP 

4 

LAST 1213 

12,3664 

14031 

0 


STCDL 

COSP 

1615 

ter 

4 

last 1251 

12.3665 

11456 

0 



kepzero 

16155 




12,3666 

77614 

1 


®1I30 


1618 

ter 

2 

LAST 1212 

12,3661 

04032 

1 



APfflSW 

1611 

ter 

1 


12,3610 

256 31 

1 



1EIM4VEC 

1618 




12,3811 

40220 

0 

APSIDES 

STO 

SETPO 

1619 

ter 

1 


12,3612 

027 12 

1 



H1TMPS8 

1680 




12,3813 

00001 

0 



OD 

1681 




12,3614 

63375 

0 


VLQAD 

POVL 

1682 

ter 

13 

LAST 1212 

12,3875 

02657 

1 



HVEC 

1683 

wr 

20 

LAST 1212 

12,3676 

02746 

0 



WEC 

1684 




12,3677 

77624 

1 


CALL 


1685 

ter 

4 

LAST 1212 

12,3700 

11527 

1 



PARAM 

1680 




12,3701 

77600 

1 


BOV 


1681 

ter 

1 


12,3702 

25703 

1 



CETECC 

1688 




12,3703 

42405 

0 

GEIBCC 

CMP 

9^ 

1689 

ter 

13 

LAST 1212 

12,3704 

02744 

1 



RlA 

1690 




12,3705 

75421 

1 


rosu 

SORT 

1691 

ter 

5 

LAST 1212 

12,3706 

115O0 

1 



Di/64 

1692 

ter 

2 

LAST 94 

12,3707 

02754 

0 


STORE 

ECC 

1693 




12,3710 

65215 

1 


DAD 

PMX. 

1694 

ter 

1 


12,3711 

11474 

0 



Di/8 


VXCH WIIH OD 


PL AT 0,6 


PL AT 0 


PL AT 8 


LIMITS RESULT TO POS4AX OR NBCHlX 


SCALB BACK DOWN TO NORMAL 
CLEAR Oi^IND IP 
CSTH (+1) 


arm (+i) 


PL AT 0 


PL AT 6 


PL AT 0 


PI. AT 2 


{A A 




13 









ASSB«LE REVISICN 249 OP AOC PROCSAM COLOSSUS BY NASA 2021111-041 

OtWIC subroutines 


11 


1695 

REP 

15 

last 1272 

1696 




1697 

HEP 

13 

last 1273 

1698 



1699 




1700 

REP 

14 

last 1273 

1701 

REP 

80 

LAST 1272 

1702 




1703 

HEP 

16 

last 1274 

1704 




1705 




1706 




1707 

HEP 

1 


1708 

REP 

2 

last 1274 

1709 




1710 

REP 

2 

last 1273 

1711 




1712 

REP 

1 


1713 

REP 

3 

last 1274 


12,3T12 

12.3713 

12.3714 

12.3715 

12.3716 

12.3717 

12.3720 

12.3721 

12.3722 

12.3723 

12.3724 

12.3725 

12.3726 

12.3727 

12.3730 

12.3731 

12.3732 

12.3733 

12.3734 


00041 

72405 

02742 

77671 

60325 

02744 

00047 1 

53725 

00041 

20174 

45271 

50000 

25732 

25732 

77650 

02712 

52145 

11467 

02712 


DHP 


nv 

FDDL 


rODL 


DIV 

BCV 


goto 

INPINAPO DUMD 


»1 

SLl 

P 

NORM 

RlA 

XI 

SL4 

Rl 

0 -5,1 

DSU 

EKN 

INPINAPO 

INPINAPO 

RTNAPS8 

GOTO 

LDPOS4AX 

RlNAPse 




20’35 OCT. 28,1968 SATOAP .007 PAGE 1274 
UffiRoS PAGE NO. 43 E5 S3 


0D=RP 1+29 OH <-27) 


PL AT 0 
PL AT 2 


PL AT 4 
PL AT 2,0 


RBTUWIS with APOAPSIS IN MPAC.PERIAPSIS 
that PL IS AT 0. 





ASSE»eLE BBVISIGN 249 CP AOC PROORAM COLOSSUS BY NASA 2021111-041 
OCNIC SlBROUriNES 


20*35 OCT. 28,1966 SATRAP .007 PAGE 1275 
USBIUS PAGE NO. 44 BS S3 


1714 

REP 

3 LAST 1261 

04,2000 



1715 




04,3630 



1716 

HEP 

3 LAST 1261 TO 

1263’ 

65 94* 

1717 




04,3630 

22437 

1 

1717 




04,3631 

16087 

1 

1718 




04,3632 

15625 

1 

1718 




04,3633 

21042 

1 

1719 




04,3634 

30276 

1 

1719 




04,3635 

04773 

0 

1720 




04,3836 

25004 

1 

1720 




04,3637 

06702 

1 

1721 




04,3640 

16471 

1 

1721 




04,3641 

01352 

1 

1722 




04,3642 

21412 

0 

1722 




04,3643 

20500 

0 

1723 




04,3644 

25477 

1 

1723 




04,3645 

03367 

0 

1724 




04,3646 

275 33 

1 

1724 




04,3647 

07571 

0 

1725 


2 LAST 

495 

04.3466 



■1727 

erasable assignments 




R1728 

KEPLER subroutine 




R1729 

input - 





H1730 

rhbct 

ERASE 

+5 




111731 

VRECT 

ERASE 

♦5 




E1732 

TAU. 

erase 

♦1 




111733 

XKEP 

ERASE 

♦1 




R1734 

TC 

erase 

♦1 




R1735 

XPRBY 

erase 

+1 




1738 




0016 



1737 




0020 



1738 




0022 



R1739 

OUTPUT - 





R1740 

RCV 

ERASE 

♦5 




R1741 

VCV 

ERASE 

+5 




R1742 

RC 

ERASE 

♦1 




R1743 

XPREY 

ERASE 

♦1 





mUJCC CCNICSl 

bank 


cam 04 /ccNic 


2PGC4t .25087606 E-10 8 * 34 * l/MJE 

2 t®C* 1.99650495 K B-ig# SQRT(MUB) 

2 DEC* .50087529 E-5 B+n’*' l/SCKTCMOE) 


20eC 4.902778 Eg B-30 

2PEC .203966 E-g 8*28 

2PEC* 2.21422176 E4 B- 15 * 
gXC* .45162595 E-4 B+14* 


MW 

1 /MW 

SQtmMlW) 

1 /SCIRT(MW) 


LDPOaAAX EQUALS LCDPWX 


DPPO®4AX IN LOW MEMORY. 


1 /MJ equals 14D 

room; equals leo 
l/ROOMO equals 18D 


EQUALS gD 
equals lOD 


I 




ASSBBLB BEVISKW 249 CP AOC PROSaAM COLOSSUS BY NASA 2021111-041 
OOHIC SIBROUTINES 


III 

L 


1T4T 

1T48 

1T49 

1T50 

1T51 

1T52 

1T53 

1T54 

1T55 


R1T56 

DELX 

erase 

+1 

R1T5T 

CELT 

erase 


R1T58 

URfflOT 

erase 

+5 

R1T59 

RCNOEM 

ERASE 

♦1 

R1T60 

XPRBV 

equals xkbp 

RlTSl 

lamert subroutine 

R1T82 

INPUT- 


R1763 

RlVBC 

erase 

+5 

R1T84 

R2VBC 

ERASE 

+5 

R1T8S 

TDBSIHH) erase 

+1 

R1T68 

CeOMSQ4 

erase 

+0 

R1T6T 

GUEsar 



R1T88 

COCiA 

ERASE 

+1 

R1T69 

NQEMar 



RlTTO 

UN 

ERASE 

+5 

RlTTl 

VWHOTAO erase 

♦0 

R1TT2 

TWHQCIT 

equals 400 

R1TT3 

QJTPUT - 


R1TT4 

VWHCBr 

BRASS 

>5 

R1TT5 

VIVBC 

equals mpac 

R1TT8 

debris - 


RlTTT 

RINIA'B 

ERASE 

♦0 

R1TT8 

U2 

erase 

+5 

R17T9 

haoybcz 

ERASE 

+1 

R1788 

URl 

erase 

♦5 

R1781 

Rl 

equals 310 

R1T82 

IK 

erase 

♦5 

R1783 

auH 

erase 

+1 

R1784 

CSIH 

erase 

+1 

R1785 

i-csm 

ERAS 

+1 

R1T86 

CSIH-HHO erase 

♦1 

1787 




1788 




1789 




R1790 

TWQCIT 

equals 400 

R1791 

F 

ERASE 

♦1 


0014 

XMIN 

EOiALS 120 

0024 

X 

EQUALS 200 

0030 

XI 

EQUALS 240 

0032 

8(XI> 

equals 260 

0034 

XSQC(XI) equals 280 

0030 

T 

ECXJALS 30D 

0040 

Rl 

equals 320 

0042 

KBPCi 

Equals 34D 

0044 

ICEPC2 

equals 380 



0 IP COM GUESS available, i IF NOT 
input (Nly if GUEssar is zero. 

0 IF tK TO BE COIPUIH}, i IF UN INPUT 
CNLY U») IF N0R4S» IS 1 

CNLY U®> IF GUESar IS 0 


available CNLY IF VWBOTOO IS ZERO. 




0010 COGAMAx EQUALS 140 CLOBBERS 1/>4J 

0010 COIANIN equals gO 

0014 DCOOA equals 120 
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L CONIC smtouriNBs 



R1T92 

COQA 

BRAS ♦! 


R1T93 

RlA 

BRAS 4-1 


X1T94 

X 

BOUALS 20D 


R1T95 

XSQ 

EQUALS 22P 


E1T96 

XI 

EQUALS 240 


R1T9T 

s(xn 

equals 260 


R1T98 

XSQC(XI) 

EQUALS 280 


R1T99 

T 

EQUALS 300 


R1800 

KEpCi 

EQUALS 340 


R1801 

KEPC2 

equals 360 


R1802 

SLOPES^ 



R1803 

SOLNSW 



R1804 

owers - 



R1805 

RVEC 

equals RlVBC 


R1808 

WEC 

ERAS *5 


R180T 

COQAPLAG 



R1808 

Rxar 



R1809 

INKWFLO 



R1810 

Apsesw 



R1811 

360SW 



R1812 

Rwrr 

EQUALS RWIAS 


R1813 

EOC 

BRAS *1 


R1814 

intnR 

equals KTNIAS 


R1815 

RINAPSB 

equals RWIAS 


R1816 

R2 

EQUALS >4A(X/EC2 


181T 



0030 

R1818 

RWPRM 

ERAS 40 


R1819 

SCNRDOT 

ERAS 40 


R1820 

HDESIRED 

BRAS 4l 


R1821 

ITERATOR subroutine 


R1S22 

ohdersw 



1823 



0016 

1824 



0010 

R182S 

WDBP 

BRAS 41 


1826 



0014 

182T 



0026 

1828 



0038 

R1829 

DEtBBP 

ERAS 4l 


R1830 

DBPREV 

ERAS 4l 


1831 



0050 

R1832 

MORE KEPLER 


R1833 

EPSILCNT erase *1 




COSP eOLVlLS 24D 


Mix BQIIALS 14D 
MW EQUALS 8D 

aa,XNDBp BaLjAi.s 12D 
mUCTR equals 22D 

D0P EQUALS 30D 


TOE^CIT equals 40D 


USEBkS PAOB no. 46 BS S3 


aXMHERS 1/MU 
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L OCMIC StftlOUriNES 

II1834 MORE lA'CERT 

R183S IBRRLAm EQUALS DBLOEP 

R1836 TPREV EQUALS DEPHEV 

«183T EPSILONL EQUALS EPSILCNT *2 DOUBLE PRECISION WOTO 




m 
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Roooe 

ROOOT 

R0008 

RO009- 

ROOll 

Bools 

R0015 

BOOIT 

ROOIB 

R0ai9 

B0021 

R0023 

R0025 

H0026 

B002T 

R0029 

R0031 

K0032 

R0034. 

R0035 

K0036 

B003B 

ROOAO 

BO 042 

BO 043 

B0044 

R0a45 

B0046 

BO 047 

B0049 

B0050 

ROOSl 

B0052 

BO 053 

B0055 

BOOS7 

B0059 

B0061 

B0063 

B0065 

B0067 

B0069 

B0070 

B0071 

B0073 

BO 075 

B0076 

BO 077 

B0079 

Booai 


AS3BCLB BBVISION 249 CP AOC PRCX3RAM COLOSSUS BY NASA 2021111-041 
XHieORATiaN WITIALIzATICN 
1.0 INTSODOCTION 


USeB«S PAGB NO. 


Bo S3 


PBOM A OSEHS point OP VIEW, ORBITAL WTEfflATICN TS BSSaiTIALLY THE SAME AS THE 278 INTBtaiATICN 
PBOOTAM. the SA^B entrances TO THE PROGBAM WILL MAINTAINHD, THE SAME STALLINO ROUTINE WILL BE US0O AND 
OUTPUT WILL STILL BE VIA THE PUSILIST. THE PRIMARY DIFPERgNtSS TO A USER INVOLVE Hffl ADDED CAPABILITY OP 
TEHMINATIWI INTEGHATICN At a SPECIPIC PINAL RADIUS AND THE DIPPEIffiNCB IN STATE VECTOR SCALING INSIDE AND OUT- 
SIDE THE lunar SPHERE OP INPLLENCE. 

IN ORDER TO MAKE THE C9<(L&DPREC AND CSMILSMICCNIC BITRANCBS SIMILAR TO PLIGHT 278, THE INTEOTATICN PROGRAM 
WILL ITSELP set THE PINAL RADIUS (RPINAL) TO 0 SO THAT REACHING THE DESIRH) TIfB CNLY WILL TERMINATE 
INIEffllATION. THE DP REGISTER RPINAL MUST BE SET BY' USERS OP INTEffltVS AND INTBGRV, AND HIST BE DONE APIER THE 
CALL TO INTSTALL. 

WHEN THE IM IS ON THE LUNAR SUHPACB (INDICATED BY UHAR SUBPA(3B PLAG SET) CALLS TO LSMCCNIC, LBIPREC, AND 
INTECSV WITH VINFLAG = 0 WILL RESULT IN THE USE OP THE PLANETARY INERTIAL ORiaiTATICN SUBROUTINES TO PROVIDE 
BOIH H® LM3 P03ITICN AND VELOCITY IN THE REFERENCE COORDINATE SYSIHA. 

THE PROCSlAM WILL PHO/IDE CUTPUT AS IP INTBC51ATI0N WAS USED. THAT IS, THE PUSILIST WILL BE SET AS NOIED BELOW AND 
THE PEHMVNBIT STATE VECTOR UPDATHJ WHBI SPECIFIED BY AN INTBGHV CALL. 

users op INTEGtVS DESIRING INTEffllATICN (INTYPFLG = 0) WOULD NOIE THAT THE CBLATENESS PERIURBATICN CCWPUIATICN 
IN LUNAR ORBIT IS TIf« DEPE7D0IT. THEREFORE, THE USER WOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SCME HEAL 
TII« AND the desired TIME (TDECD ALSO AT SO® HEAL TIME. FOR CCNIC , , INTBGRATICN, , THE USER MAY STILL USB 2EHO 
AS THE INITIAL TINE AND DELTA TIME As THE DBSIHH) TINE. 

2.0 general DESCRIPTION 


OP 


THE integration PROGRAM OPERATES AS A CTDSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTICNS 

1) integrates (PRECISICN or CCNIC) EITHER CSM OR IM STATE VECTOR 

2) integrates the W-MATRIX 

3) PEHMANaCT OR TEMPORARY UPDATE OP THE STATE VECTOR 

THERE are six ENTRANCES TO THE INTBGRATICN PROGRAM. POUR OF THESE (CWPREC, LEMPREC, CS«:CNIC, LfMCCNIC) SET 
ALL the flags BEOUIHED IN THE INTBGRATICN PROGRAM ITSELP TO CAUSE THE PRECISICN OR CCNIC INTBGRATICN (KEPLER) 

THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. Q® BNTEANCE ( INTEGRVS) PERMITS THE CALLING PROGBAM TO 
PRCVIDE A state VECTOR TO BE INTEGRATS). THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (D PRECISICN OR 
CCNIC INTBC»ATICH. (2) IN OR OUT OP LUNAR SPHERE, (3> MIDCOURSE OB NOT, AND THE INTEGHATICN PROGRAM CCMPLETES 
THE FLAG SETTING TO BYPASS W-MATRIX INTBGRATICN. THE LAST EJTRANCE ( INTBGRV, USED IN GENERAL BY THE 
NAVIGATION PROCHWMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MCXNFIAG OR MIDFLAG) BUT NOT TO INPUT A STATE 
vector, any PROGRAM WHICH CALLS INTBCHIVS OR INTBGRV MJST CALL INTSTALL BEFORE IT SETS THE INTBGRATICN FLAGS 
AND/OR STATE VECTOR. j 

THREE SETS OP 42 REGISTERS AND 2 FLAGS ARB USED FOR THE STATE VECTORS. TWO SETS, WHHX MAY NOT BE OvEHIAYED, ARE 
USH) FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OvEBLAYED WHEN INTEGRATICN 
IS NOT BBIf« DCNE, IS USED IN THE CCMPUIATICNS. 

THE PBRMANaCT STATE VECTORS WILL BE PERIODICALLY OPOATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TINESTEPS. 
THE PERMANarr state VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OP INTBGRV 
SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.> 



II 


nOB2 

110083 

IIO084 

R0085 

ROOSS 

110088 

ItOOlO 

II0092 

R0094 

80098 

I1009T 

R0098 

1(0099 

ROlOO 

ROlOl 

K)103 

R0105 

ROIOT 

R0109 

ROllO 

ROlll 

R0112 

R0113 

R0114 

Rons 

ROUT 

R0119 

R0121 

R0122 

R0123 

R0124 
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Apparoix B OP THE users guidb lists the stats vector quantities. 

2.1 RESTARTS 

PHASE CHANOES WILL BE MADE IN THE INTBtBlATICW PROfflAM OILY FOR THE INTBCSV BTTRANtS (I.B., WHHI THE W-MATRIX IS 
INIEORATED or permanent state vector IS UPOATBD.I THE (SIOUP NlMKR USED WILL BE THAT FOR THE P20-25 PROGRAMS 
(I.B., QR(XJP2) SINCE the INTEGa v B4TRANCB WILL ONLY BE USED BY THESE PROGRAMS. IP A RESTART OCCURS DURING AN 
INTEOlATiai OP THE STATE VECTO R CWLY, THE RECCVBHY WILL BE TO 1KB LAST IHASE IN THE CALLING PROCSIAM. CALLING 
PROWAMS «HI(SI USE THE INTEGRA OR INTEtfflYS ENTRANCE OP INTEGRATICN aiOULD SISURB THAT IP PHASE CHANGING IS DCNE 
that it is prior to SBTTINO the INTEtfflATICN INPUTS IN THE PUSILIST. 

THIS IS BECAUSE THE PUaiLISr IS LOST DURING A RESTART. 

2.2 SCALING 

THE INTETOATIOI RO/TINB WILL MAINTAIN THE PEHMANBIT ^e40RY STATE VECTORS IN THE SCALING AND UNITS DEFINHJ IN 

AppaiDix B OP the users xjide. the scaling op the Output position vECroaDEpeiDs cn the origin op the coordinate 

SYSTH4 AT THE DESIRED INTEGRATICN TIME. THE COORDINATE SYSTEM TRANSFOEWATICN WILL BE DCNE AUTCMATICALLY CN 
MLTIPLE TIEESTEP EN(3<E INTBBBATICN CNLY. thus it is possible TO HAVE OUTPUT FHa4 SUCCESSIVE INTEGRATIONS IN 
DIFFEReiT SCALING. 

however, bait, vatt will alnays be scaled the same. 

3.0 INPUr/QUTPUT 


.0 


PROGRAM INPUTS ARB THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP- 
PBIDIX B OP the users GUIDB, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDECi <A PUSI LIST LOCATION) . 

FOB INTEC51VS, THE HCv,VCv, TET O' THE TEMPORARY STATE VECTOR MIST BE SET, PLUS MOCNFLAG AND MIDFLAO 

FOR SII4JLATICN THE FOLLOWING OJANTITIBS MUST BE PRESET 

BARTH MOCN 


B0125 




29 

27 

R0128 

HHECtCSM(LEM) 

- rectified position vector 

METERS 

2 

2 

B0127 






R0128 




T 

5 

B0129 

VRECICSMCLESM) 

- RBCriPIED velocity vector 

M/CS8C 

2 

2 

Rai30 






R0131 




28 

28 

R0132 

TETC3M(L0M) 

- TINE SlAlB VBC?rOB IS VALID 

csec 

2 

2 

R0133 


CUSTOMARILY 0, BUT NOTE LUNAR 




R0134 


ORBIT DBpaceNOE CN BEAL Tli*. 




R0135 






R0138 




22 

18 

R013T , 

DELTA VCSM(LEM) 

- POSITICN deviation 

I«1ERS 

2 

2 

B0138 


0 IP lOCSMCLBM) = 0 




R0139 






R0140 




3 

-1 

R0141 

NUVCSKLKM) 

- velocity deviation 

M/CSEC 

2 

2 

R0142 


0 IP T0X;sM(LBM) = 0 







R0143 
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>0144 

>0145 

RCVCS4(L01) 

>0148 

>0147 

>0148 

R0149 

>0150 

VCVCSMIUM) 

>0151 

>0152 

>0153 

>0154 

>0155 

T0C94(LEM) 

>0158 

>0157 

>0158 

>0159 

XKBpC9«L&t) 

>0160 

>0181 

>0182 

CHOCNFLG . 

>0163 

CMIDPLAG 

>0164 

IMOCNFUG 

>0165 

LMIDPLG 

>0166 

>0167 

SURPPLAG 

>0168 

>0169 

IN AOJITION, IP 


ROITO 

ROITI 

ROITZ 

B01T3 

B01T4 

B01T5 

ROITS 

ROITT 

R01T8 

H01T9 

BOISO 

R0181 

R0182 

R0183 

R0184 

R0185 

Roise 

H018T 

1(0188 

B0189 

R0190 

1(0191 

R0192 

1(0193 


- CCNIC POSITION 
EQUALS RHECTCa4(L»f) IP 
TOCSMCLtM) = 0 


CONIC VELOCITY 
equals VRECTC»«La«I) IP 
ICCSMCLBI) =0 


TD* SINCE RECtIPICATION 
Customarily o 


»«TEBS 2 


M/CSEC 2 


29 


27 


- ROOT OP KEPLERS EQUATION 
0 IE iCCa^CLBA) = 0 

- PElMANENT FLAGS CORRESPOND INO 
TO MOONFLAO AND MIDFLAG 

C = CSM. L = LM 


- llnar surface flag 


CSECS 

1/2 

M 


28 


17 


0 

0,1 

0 

0,1 

0,1 


28 


18 


0 

0,1 

0 

0,1 

0,1 


SOLAR BPHE^ERIDes SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB- 
ROUTINE MUST BE preset. 


OUTPUT 

after every call TO INTEGRATICN 


earth moon 


00 

ratt 

P03ITICH 

WTERS 

29 

2 

29 

2 

60 

vatt 

velocity 

M/CSEC 

7 

2 

7 

2 

120 

TAT 

TIf« 


28 

2 

28 

2 

140 

BATTT 

POSITION 

EBIERS 

29 

2 

27 

2 

200 

VAin 

velocity 

M/CSEC 

7 

2 

5 

2 

260 

MJCP) 

MU 

3 2 

M /CS 

38 

2 

30 

2 

XI 


MUTABLE ENTRY 


-2 

-lOD 

X2 

X2 


COOBDINT 

COORDINATE SYSTIN ORIGm 
(THIS, NOT MOCNETAG, SHOULD BE 


0 

2 



USBRsS page no. 3 Bo S3 
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R0194 

110195 

110196 

it019T 

110198 

110199 

110200 

R0201 

110202 

110203 

II0204 

110205 

II0208 

II020T 

110208 

110209 

110210 

II0211 

110212 

110213 

110214 

I1021S 

110216 

II021T 

110218 

110219 

110220 

110221 

110222 

110223 

110224 

110225 

110226 

110227 

110228 

110229 

110230 

110231 

110232 


USBD TO DBIEIMINE ORIGIN.) 


IN addi tion to the ABIVE, the PEIMWENT STATE VECTOR 13 UPDAIH) WHENEVER 
STATEPLO was set and WHEffivER A W-MATRIX IS TO BE INTEQEIAtBD. THE PUai 
OOKIER is set to 0 AlO overflow is cleared ffiPORB RBTUIWINO TO THE 
CALLING PROGRAM. 


4.0 CALLING SEQUENCES AM) SAMPLE CODE 


A) PieCISICN ORBITAL INTEGRATION. CSWPBEC.LB^PHEC BITBANCES 


STORE Tlie TO 9S15791TS T 95 PUS L9ST <T453l) 
CALL 

CSIPRBC (OH tEWPREC) 

REIUR4 


TBeCi (to 32 D) TD« to INTEtSlATE TO. . .CENTISECCNDS SCALED 2 
OUTPUT 

data listed in section 3.0 PLUS 
HWV POSITION vector OP VEHICLE WITH RESPECT TO SECCNDARY 
body. . . ICTERS B-29 CNLY IP MIDPLAG = DIMOFLAG = 1 

B) CCNIC INTBCaiATICN. CsCCNIC, LfMCCNIC ENTRANCES 

L-X STORE TD* IN PUS! LIST (TOECi) 

L CALL 

Ltl CaWXHIC (OR L&CCNIC) 

INPUT/OUIPUT 

SAie AS PH0CI3ICN INTBORATICN, EXCEPT ROW NOT SET 

C) INTBQRATB Glvai state vector. INTEGRVS bvtranc® 

CALL 

INTSTALL 


PQSITICN vector 
STOVL H(V 

velocity vector 

STOM, VCV 

TIME state vector VALID 
STODL TET 

final RADIUS 
STORE BPINAL 


110233 


Wn CLEAR) 

sett CLEAR) 


110234 



INTYPPLAG 


II0235 



mocnflag 


110236 


SET( CLEAR) 

DLOAD 


110237 



DESIRED TI)® 


110238 


SICALL 

TOeCi 


R0239 



INTEGRVS 


110240 

INPUT 




110241 

RCV 

P03ITICN VECTOR 

!«IEHS 

R0242 

VCV 

VEIOCITY VECTOR 

M/CSEC 

110243 

TET 

TI* OP STATE VECTOR(MAY = 0> 

csec B-2a 
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1. 

meonATiGN initializaticn 


U244 

TDBCl 

TIi« TO INTBtSlATE TO 

CSEC B-28 (PD 320) 

10245 


(MAY BE INCI»®(T IF TET=0> 

W24S 

OUTPUT 



■024T 

SA* AS for PlffiCISION OR CCNIC INTBfflATICN, 

M24S 

DBpeNDINO ON INDfPPLO. 


*0249 

D1 ItnEOTATE 

1 state vector. INTGIV ENTRANCE 

>0250 

L-X 

STORE TIME IN PUai LIST (TDECiKMAY BB DONE AFTER CALL ’ 

>0252 

1—0 

CALL 


>0253 

1-7 



>0254 

1-0 

SETOCIEAR) SBTNCLEAH) 


>0255 

1-5 

VINTPIAO 

1=C34, o=LM 

>0250 

1-4 

INTYPPLAO 

1=CCNIC, o=precisicn 

>0257 

1-3 

SEW CLEAR) SEW CLEAR) 


>0250 

1-2 

DIHOPLAO 

1=W-MATRIX, 0=NO W-MATRIX 

>0259 

I-l 

DeQRgPLG 

1=9X9, 0=6X6 

>0200 

L 

^ DLOAO 


>0201 

L*1 

STATEPLO 

DESIRE PEIWANENT UPDATE 

>0202 

L*2 

FINAL RAD. 

OP state vector 

>0203 

■ L*3 

STCALL RFINAL 


>0204 

L*4 

INTEGRV 


>0205 

L 

CALL 

NOEWAL Uffl— WILL UPDATE STATE 

>0200 

L+1 

INTBtav 

vector if dimoflaoii.cstatefijG is 

>0207 

L+2 

RETURN 

ALWAYS reset IN INTEGRATION AFTER 

>0200 



IT IS USED.) 

>0209 

INPUT 



>0270 

Tceci 

(PD 320) TI)e TO integrate TO CSEC B-28 

M2T1 

OUTPUT 



>0272 

SAi« AS FOR PRECISION OH CCNIC INTEGRATION 

>0273 

THE PROSWM WILL ffiTT MOCNFLAG, MIDFLAO DEPENDING ON 

>0274 

THE PEIMANENT STATE VECTOR REPRESENTATION. 


USBRaS PAOe NO. 


Eo S3 


92741 





11,2310 



bank 

11 

02742 

BPS' 

2 

LAST 

203 

13,2000 



fflTLOC 

INTINIT 

02743 





13,2561 



bank 


02744 

REP 

5 

LAST 

207 

B3,1S54 



ESANK= 

RHBCTCS4 

02745 

REP 

2 

LAST 

203 TO 

206’ 

30 304 

CQJNT 

13/INTIN 

9275 

REP 

92 

LAST 

1226 

13,2561 

0 5301 

0 

STATEINT TC 

PHASCHNO 

9270 





13,2562 

00052 

0 

OCT 

00052 

0277 

REF 

7 

LAST 

261 

13,256 3 

3 4754 

0 

CAF 

PRIC6 

0270 

REF 

30 

LAST 

7T9 

13,2564 

0 5042 

1 

TC 

FINDVAC 

0279 

REF 

6 

LAST 

12B3 

E3,1554 



EBANK= 

RRECTCS4 

9280 

REF 

2 

LAST 

207 

13,2565 

02570 

1 

2CADH 

STATINTl 

0200 





13,2566 

26063 

0 



0281 

REF 

64 

LAST 

1205 

13,2567 

0 5213 

1 

TC 

TAacCX^R 

0282 

RBF 

233 

LAST 

1264 

13,2570 

0 6006 

1 

STATINTT TC 

INTPRET 

9283 





13,2571 

47014 

1 

BCN 

RIB 

02831 

REF 

2 

LAST 

261 

13,2572 

04712 

1 


QUIIELAG 

02832 

REP 

1 



13,2573 

26630 

0 


NOINT 

9284 

REF 

28 

LAST 

689 

13,2574 

45505 

0 


UMDTIM? 


NO SIATEINT ip V96 


Ill 


ASSMLB »asi(M 24» OP AOC PaOtaWM COLOSSUS by NASA 2021111-041 
WIBCIaATIW initialization 


0288 

0323 

0324 

0325 
03251 
0328 
032T 
0328 
0358 
0358 

0404 

0405 

0408 

0409 

0411 

0412 

0413 

0414 

0415 
0415 
0418 
0428 

0427 

0428 

0429 

0430 

04301 

04302 

04303 

04304 

04305 

04308 

04307 


48 lAsr 889 

22 LAST 1228 

2 lAST 204 
2 LAST 204 


3 LAST 801 
93 LAST 1283 


2 LAST 207 

3 LAST 842 
0 LAST 260 
3 LAST 207 


US' 108 LAST 1009 

Hap 4 lAsr 1284 
HBP 13 LAST 868 

HBP 11 1>ST 814 
HH' 5 LAST 601 


BBP 94 LAST 1284 


HBP 


54 

3 


LAST 1037 

last 1283 


13.2575 

13.2576 

13.2577 
13,2800 

13.2601 

13.2602 

13.2803 

13.2804 

13.2805 
13,2808 
13,2607 
13,2810 
13,2611 
13,2812 

13.2613 

13.2614 

13.2615 
E3,1554 

13.2616 
13,2817 

13.2620 

13.2621 
13,26 22 
13,26 23 
13,2624 
13,2623 
13,2626 
13,2827 
13,2630 
13,2831 
13,2632 

13,2833 

13,2634 


00041 

77624 

27371 


45014 0 


01076 
26621 
77650 
26000 
00003 
25140 
77414 
01672 
0 5301 
20032 
0 0006 
3 2606 


8T0RS 1D0Ci 
CALL 

WTSIALL 
Sr CALL 

NODOPLAO 

»TIPLQ3 

OOIO 

SBATEUP 

600SBCS 20eC 60000 


BmiNT 


0 5231 1 

02561 1 
2606 3 0 
0 5112 0 
43014 0 
01472 1 
01673 1 
43014 0 
01676 
01675 
77616 
77776 
0 5301 
00002 


CLEAR EXIT 

SWTEWH 
7C PHAsCHNO 
OET 20032 
EICIB© 

CCA ooosecs 

TP LQWCAIi, 

BaANlC= hhbcthis 

2CADR SWTEINT 


1C 

SBTIPLGS S8T 


0 5447 0 
00221 0 


BflXPJOB 
CLEAR 
STATEFLO 
INTYPFLG 
CLEAR CIEAR 

DIMoEIAO 

D6OR9PLO 

RVO 

noint Exit 

TC PHASCHNO 
OCT 2 

TC D09NFLAG 
acres QUIOTAG 


1C 


PNDQPJCB 


04308 HBE 109 LAST 1284 1 3,2635 0 5112 0 

B0431 ATOPCSW IRANSFERS RRECT TO RHECT *41 TO RREC1CS4 TO RREC1CS4 +41 

R0432 CALLING SBORICB 
R0433 L CALL 
.R0434 Ul ATOPCS4 

H0435 normal BclT AT L+2 
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0436 

0437 

0438 

0439 

0440 


BEF 

HEP 


LAST 1263 
LAST 1230 


HEP 21 LAST 621 


13,2636 

47020 

0 

ATOPCS4 STO 

RIB 

13,2637 

00051 

0 


S2 

13,2640 

26651 

1 


NOVEACS4 

13,2641 

45014 

0 

SET 

CAIL 

13,2642 

04063 

0 


C?40CNFLG 



• I 
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0441 

REP 

3 

last 1230 

13,2643 

20237 0 



SVOiNl 

0442 




13,2844 

43014 0 


B(M 

CLaoo 

0443 

REP 

12 

LAST 869 

13,2845 

00303 1 



MOCNPLAO 

0444 

REP 

28 

LAST 1284 

13,2646 

00051 0 



32 

0445 

REP 

22 

LAST 1284 

13,264T 

04223 0 



CMOCHFLO 

0446 

REP 

29 

last 1285 

13,2650 

00051 0 



32 

044T 

REP 

1 


13,2851 

0 3015 0 

MCVEAC34 TO 

ffiTBANK 

0448 

REP 

2 

LAST 83 

13,2652 

55«500 1 


TS 

DIFEOCNT 

0449 

REP 

3 

LAST 1285 

13,2653 

51«500 0 


DCEX 

DIPEQCNT 

0450 

REP 

5 

LAST 124T 

13,2654 

3 1502 1 


CA 

erect 

0451 

REP 

4 

last 1285 

13,2655 

Sl«500 0 


INDEX 

DIPEQCNT 

0452 

HEP 

T 

LAST 1283 

13,2656 

55«S54 0 


TS 

HRECTO34 

0453 

REP 

5 

LAST 1285 

13,2657 

11«500 1 


CCS 

DIPEOWr 

0454 

REP 

4 

LAST 1284 

13,2660 

1 2652 0 


TOP 

MOVBACSH +1 

0455 

REP 

63 

LAST 125T 

13,2661 

0 6030 1 


JC 

DANZIG 

R0458 

ptoacsm 

transfers RBBCTCS4 TO HRECTCSA 

♦41 TO RRECT TO HHECT +41 

R045T 

. CALLING SaUB4CB 






R0458 

L 

CALIa 






R0459 



PTOACSN 






R0460 

NORMAL EXIT AT L+2 






0481 




13,2862 

43034 1 

PTMCS4 

RTO 

BCN 

0482 

REP 

2 

LAST 1230 

13,2663 

26700 1 



MCVEPCS4 

0463 

REP 

23 

last 1285 

13,2864 

04303 0 



CMOWPLG 

0484 

REP 

1 


13,2665 

26673 1 



»IMOCN 

0465 




13,2666 

66214 0 

CIJWOCN 

CLE4R 

SSP 

0466 

REP 

13 

LAST 1285 

13,2667 

0026 3 0 



MOCNFLAG 

046T 

REP 

4 

LAST 1229 

13,2870 

02151 0 



PBfDY 

0468 




13,2671 

00000 1 



0 

0469 




13,2872 

77616 0 


HVO 


04T0 




13,2873 

66214 0 

SETMOCN 

ffiT 

SSP 

04T1 

HEP 

14 

last 1285 

13,2674 

00083 1 



MOCNFLAG 

64T2 

REP 

5 

last 1285 

13,2875 

02151 0 



PBCDY 

04T3 




13,2876 

00002 0 



2 

64T4 




13,2677 

77816 0 


RVO 


04T5 

REP 

2 

LAST 1285 

13,2700 

0 3015 0 

MCVEPCS4 TC 

SBIBANK 

04T6 

REP 

6 

LAST 1285 

13,2701 

55«500 1 


TS 

DIFEOCNT 

64T7 

REP 

T 

last 1285 

13,2702 

Sl«500 0 


INDEX 

DIFEOCNT 

04T8 

REF 

8 

last 1285 

13,2703 

3 1554 1 


CA 

RRBCTOSM 

04T9 

REP 

8 

LAST 1285 

13,2704 

51«500 0 


INDEX 

DIFEOCNT 

0480 

REP 

6 

LAST 1285 

13,2705 

55«502 0 


TS 

RRECT 

0481 

REP 

9 

LAST 1285 

13,2706 

11«500 1 


CCS 

DIFEOCNT 

0482 

REP 

3 

LAST 1285 

13,2707 

1 2701 1 


TOP 

MCVEPCS4 +1 

0483 

REP 

64 

LAST 1285 

13,2710 

0 6030 1 


TO 

DANZIG 

R8484 

ATOPLE4 

TRANSFERS RtffiCT TO RHECT +41 TO RRECTLEN TO HRBCIUM +4i 


initialize index 


IS transfer complete 

NO-LOOP 

CCMPLBIE- RETURN 


I 

I, 

I 
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■485 





13,2711 

47020 

0 Atopic 

STQ 

HTB 

•48« 

IBP 

30 

LAST 

1285 

13,2712 

00051 

0 


32 

8487 

MB' 

2 

LAST 

1229 

13,2713 

26724 

1 


m/BALBA 

•488 





13,2714 

45014 

0 

set 

CALL 

•489 

■9P 

3 

LAST 

578 

13,2715 

04064 

1 


IMOCMPLQ 

•490 

IBP 

3 

LAST 

1229 

13,2716 

20263 

1 


a/omz 

•491 





13,2717 

43014 

0 

BCN 

CLBOO 

•492 

■B' 

15 

LAST 

1285 

13,2720 

00303 

1 


HDCMPLAO 

•493 


31 

lAST 

1286 

13,2721 

00051 

0 


32 

•494 

■BP 

4 

LAST 

1286 

13,2722 

04224 

1 


LMOCNPLO 

•495 

REP 

32 

LAST 

1286 

13,2723 

00051 

0 


32 

•498 

■BP 

3 

LAST 

1285 

13,2724 

0 3015 

0 m/EALSM 

IC 

ffiTBANK 

•497 

REP 

10 

LAST 

1285 

13,2725 

55«500 

1 

T3 

DIPEQCNT 

•498 

REP 

11 

LAST 

1286 

13,2726 

Sl«500 

0 

INDEX 

DIFEOCNT 

•499 

RBP 

7 

LAST 

1285 

13,2727 

3 1502 

1 

CA 

hhect 

•500 

BBP 

12 

LAST 

1286 

13,2730 

51«500 

0 

INDEX 

DIPEQCNT 

0501 

REP 

2 

LAST 

84 

13,2731 

55«626 

0 

TS 

rhectlbi 

0502 

■O' 

13 

lAST 

1286 

13,2732 

11«500 

1 

CCS 

DIPEQCNT 

•503 

REP 

3 

LAST 

1286 

13,2733 

1 2725 

1 

TCP 

HCVEALEM +1 

•504 

REP 

65 

LAST 

1285 

13,2734 

0 6030 

1 

TC 

DANZIG 

■0505 

PIQALEM 

TOANSPEHS HRECtLBN TO HHECTLei *41 TO RHECT TO HHECT +41 

0500 





13,2735 

47014 

1 PTCMI^ 

BQ7 

RIB 

0507 

REP 

4 

LAST 

261 

13,2736 

04307 

1 


SURPPIAO 

0508 

REP 

1 



13,2737 

26756 

1 


USEPIOS 

•509 

REP 

2 

LAST 

1229 

13,2740 

26745 

0 


MCVEPLBI 

8510 





13,2741 

52014 

0 

BCK 

GOTO 

0511 

REP 

5 

LAST 

1286 

13,2742 

04304 

1 


LMOCNFLG 

0512 

REP 

2 

LAST 

1285 

13,2743 

26673 

1 


ffiTMOCN 

•513 

IBP 

1 



13,2744 

26666 

0 


CLIWOCN 

•514 

REP 

4 

LAST 

1286 

13,2745 

0 3015 

0 MCVEPL04 IC 

SETBANK 

•515 

BBP 

14 

LAST 

1286 

13,2746 

55«500 

1 

TS 

DIFEOCNT 

•518 

REP 

15 

LAST 

1286 

13', 2747 

51*500 

0 

INDEX 

DIPEQCNT 

0517 

REP 

3 

LAST 

1286 

13,2750 

3 1626 

1 

CA 

RRECTLFM 

•518 

BBP 

16 

LAST 

1286 

13,2751 

51*500 

0 

INDEX 

DIPEQCNT 

OSl* 

BBP 

8 

LAST 

1286 

13,2752 

55*502 

0 

TS 

BDECT 

0520 

BBP 

17 

LAST 

1286 

13,275 3 

11*500 

1 

CCS 

DIPEQCNT 

•521 

■8P 

3 

LAST 

1286 

13,2754 

1 2746 

1 

TCP 

MCVEPLEM +1 

0522 

REP 

66 

LAST 

1286 

13,2755 

0 6030 

1 

TC 

DANZIG 

•523 





13,2756 

77201 

1 usepios 

SEITO 

VUMD 

•524 





13,2757 

00001 

0 


0 

0525 

BBP 

10 

LAST 

1212 

13,2760 

02026 

1 


BLS 

•528 





13,2761 

41525 

0 

POOL 

puai 

•527 

IBP 

49 

LAST 

1284 

13,2762 

000.41 

1 


TDECi 

•528 

BBP 

12 

LAST 

868 

13,2763 

15517 

0 

STODL 

TET 

•529 

RBP 

1 



13,2764 

27756 

0 


5/8 
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0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 
05381 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0551 

0552 

0553 

0554 

0555 

0556 

0557 
R0558 
ROSSO 

B 0 S 61 

R0S63 

R0564 

R05S5 

R0567 

R0S68 

R0569 

B0570 

R0571 

B0572 

R0573 

R0574 


8 

15 

3 


LAST 1208 
LAST 1252 
LAST 32 


HEP 13 LAST 1286 
HBP 2 LAST 1286 


hep 


HEP 

HEP 


HEP 


HBP 


16 

9 

16 

1 

14 

8 

6 


LAST 1286 
LAST 1287 

LAST 1287 

LAST 1252 
LAST 1208 
LAST 1229 


LAST 1285 
LAST 1229 


HEP 1 
HEP 30 
HEP 1 
HEP 302 
HEP .9 
10 


LAST 1202 

LAST 1204 
LAST 1285 
LAST 614 


13.2765 

13.2766 

13.2767 

13.2770 

13.2771 

13.2772 

13.2773 

13.2774 

13.2775 

13.2776 

13.2777 

13.3000 

13.3001 

13.3002 

13.3003 

13.3004 

13.3005 

13.3006 

13.3007 

13.3010 

13.3011 

13.3012 

13.3013 

13.3014 

13.3015 

13.3016 

13.3017 

13.3020 
B3,1554 

13.3021 


77624 

55341 

25535 

11450 

14001 

01517 

14007 

27756 

45014 

00063 

55341 

74235 

01535 

27014 

25543 

11456 

01521 

67174 

00002 

02150 

35527 

27136 0 

07112 1 

06620 S 

3 3021 1 

54 006 S 

3 3436 a 

0 0002 a 


CAli, 


(MBCMQCN 2 PEC 4 


HP-TO-R 
HCV 
a«IT 

OD 

TBT 
6D 
5/8 
CAIX 

MOCHPIAa 
HP-TO-R 
VX3C 
HCV 

OBKXM 
VCV 

2EBCVBC 
TDELTAV 

S)CA,2 
2 

PBCDY 

STCALL TNIV 
A-PCrtc 

2.66169947 E-8 B+23* 


STWL 


STOIC, 


stgdl. 


ffiT 


VXV 


STOVL 

STORE 

AXT ,2 


NEEDHJ POR SETTING XI CH EXIT 


ffllBANK CAP INTBANK 
TS BRANK 

CAP PORTYCNE 
IC O 

EBANKr HRECTCS 4 . 

BBCCN INTEGRA 

SPECIAL PURPOSE ENTRIES TO ORBITAL INTEiaftTICN. THESE ROUTINES PRCVIDE ENTRANCES TO INTEGRATICN WITH 
appropriate SirlTCHES SET OR cleared pca -WB DESIRED INTEGRATICN. 


26063 a IPIBANK 


CSCPREC AND LfiCPREC PERFORM ORBIT INTEGEJATTCN BY THE ENCKE >«THCD TO THE TIME INDICATED IN TDECi 
ACCELERATIONS DUB TO QBLATENESS ARB INOimED. NO W-MATRIX INT. IS DCHE. 

THE PERMANENT STATE VECTOR IS NOT UPDATED. 

CSMCCNIC AND LS 4 CCNIO PERFORM ORBIT INESE. BY KEPLERS METHOD TO THE TI^E INDICATED IN TDBCi 
NO DISIURBING ACCELERATIONS ARE INCUJSED. IN THE PROGRAM FLO* THE GIVEN 
SIATE VECTOR IS RECTIFIED BEFORE SOLUTiat OF KEPLERS EQUATICN 

the ROUTINES ASSU® THAT THE CSM (LEW SIATE VECTOR IN P-M&C IS VALID. 
snitches SET PRIOR TO ENTRY TO THE MAIN INIBG. PROG ARB AS FOLLOWS 
CSNPHEC CSCONIC LENPRBC IB 4 CCNIC 
VINTPLAO set SET CLEAR CLEAR 

INTYPFLG CLEAR SET CLEAR ffiT 

DIMoFLAQ clear clear CLEAR CLEAR 


I 

I 

I 


I 


USTS 

tOSTt 

«05TT 

B05T8 

n5T9 

■0580 

>0581 

■0582 

■0583 

■0584 

■0585 


ASSB«LB BBVISICH 249 O' AOC PBOSAM COLOSSUS BY NASA 2021111-041 

nrtBCRATION INlTlALIzATIOf 

CALLING seOJENCB 
I-X STORE TDECi 
L CALL (STCALL TDBCi) 

t*l CalPRBC CC9CCNIC, LSMPREC, LBiCCMIC) 

NORMAL EXIT TO L*2 

subroutines CALLH) 

INTBGJuri 

PRECOUT for Ca4PREC AND LeiPREC 
CONICOUT FOR CaCtKIC A(0 LBCCNIC 

cwmrr - see pace 2 op this loo secticn 

INPUT 


■0588 

TDECi 

TIME TO INTEGRATE TO 

. CSECS H 

1-28 



0S8T 




13.3022 

45020 1 

Ca>IPRBC 

STO 

CALL 

9588 

BBF 

81 

last 1274 

13.3023 

00046 0 



XI 

0589 

KEF 

23 

last 1284 

13.3024 

27371 1 



INTSDUL 

0590 




13.3025 

43130 1 


SCA.i 

SET 

0591 

REF 

2 

LAST 87 

13.3026 

02214 1 



IHETUm 

0592 

DBF 

10 

LAST 601 

13.3027 

01474 1 



VINTFIAG 

9593 




13.3030 

43014 0 

IPLAGP 

SET 

Clear 

0594 

HEP 

3 

LAST 204 

13.3031 

01467 0 



PHECIPLO 

9595 

HEP 

12 

last 1284 

13.3032 

01676 1 



DIMoFLAG 

0590 




13.3033 

77614 1 


(XBGO 


05981 

HH' 

14 

last 1284 

13.3034 

01633 0 



INTXPPLG 

95962 

J(EP 

1 


13.3035 

27115 1 



INTBGH /1 

059T 




13.3036 

45020 1 

LB4PREC 

SIO 

CALL 

0598 

RET 

82 

last 1288 

13.3037 

00046 0 



XI 

9599 

REP 

24 

LAST 1288 

13.3040 

27371 1 



INTSTALL 

0600 




13.3041 

43130 1 


sbcA.i 

CLRGO 

0001 

REP 

3 

LAST 1288 

13.3042 

02214 1 



IRBTUIW 

0602 

REP 

11 

LAST 1288 

13.3043 

01634 1 



VINTFIAO 

0603 

REP 

1 


13.3044 

27030 1 



iplaGp 

0604 




13.3045 

45020 1 

CSMCCNIC 

STU 

CALL 

0605 

REP 

83 

LAST 1288 

13.3046 

00046 0 



XI 

0606 

REP 

2S 

LAST 1288 

13.3047 

27371 1 



INTSTALL 

eooT 




13.3050 

43130 1 


SXA.l 

set 

0608 

REP 

4 

LAST 1288 

13.3051 

02214 1 



IRETUIW 

0609 

REP 

12 

last 1288 

13.3052 

01474 1 



VINTFIAO 

0010 




13.3053 

43014 0 

IPLAGC 

CLEAR 

SBTGO 

0611 

REP 

13 

LAST 1288 

13,3054 

01676 1 



DIMoFLAG 

0612 

REP 

15 

LAST 1288 

13,3055 

01433 1 



INTYPFIL 

0613 

REP 

2 

last 1288 

13,3056 

27115 1 



INTBGRVl 

0614 




13,3057 

45020 1 

IPMCCNIC 

STO 

CAU. 

0615 

REP 

84 

LAST 1288 

13.3060 

00046 0 



XI 
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OSIS 

REP 

26 

LAST 

1288 

13,3061 

27371 1 


INTSTAIL 

esiT 





13,3062 

43130 1 

acA,i 

CLBOO 

0818 

BBP 

5 

LAST 

1288 

13,3063 

02214 1 


IBETUIN 

0619 

IBP 

13 

LAST 

1288 

13,3084 

01634 1 


VINTELAO 

0S20 

BSP 

1 



13,3065 

n0S3 1 


IPLAOC 

0621 





13,3066 

66214 0 

INTBtSlYS SET 

SSP 

0622 

REP 

4 

LAST 

1288 

13,3067 

01467 0 


PRBCIPLO 

0623 

BBP 

T 

LAST 

1287 

13,3070 

02151 0 


PBCDY 

0624 





13,3071 

00000 1 


0 

0625 





13,3072 

66214 0 

BOP 

SSP 

0620 

IBP 

IT 

LAST 

1287 

13,3073 

00343 0 


MOCNFLAO 

oe 2 T 





13,3074 

27077 1 


+3 

0628 

BBF 

6 

LAST 

1289 

13.3075 

02151 0 


PBCDY 

06281 





13,3076 

00002 0 


2 

0629 





13,3077 

77220 1 

STO 

VLQAD 

0630 

BEK 

6 

LAST 

1289 

13,3100 

02214 1 


IHBTUIN 

0031 

BEB 

9 

LAST 

1287 

13,3101 

11456 0 


ZERCVBC 

0632 

EBP 

T 

LAST 

1287 

13,3102 

01521 0 

STORE 

TDELXAV 

0633 

BBP 

T 

LAST 

1287 

13,3103 

35527 1 

1 

F 

1NUV 

0634 

BBF 

2 

LAST 

1229 

13,3104 

23344 0 


rectify 

0635 





13,3105 

43014 0 

Clear 

set 

0636 

BBP 

14 

LAST 

1288 

13,3106 

01676 1 


DIMoFLAG 

06 3T 

BHF 

1 



13,3107 

04062 1 


NEWIFLO 

063T1 





13,3110 

77814 1 

®ioo 


063T2 

BBF 

1 



13,3111 

04020 1 


HPQFLAO 

0638 

REP 

1 



13,3112 

27127 0 


ALQADED 

R0S39 

nrreoR/ 

IS AN 

ENTRY 

TO ORBIT 

INTEGRATICN WHICH PEIWITS ' 

IHE CALLER 


II0S40 NCmALLY THE NAVIOATICN PROGRAM ,TO SET THE INTEO. FLAGS. THE ROUTINE 
R0641 IS ENTERED AT INTEGRVi BY CsyiPREC ET.AL. AND AT ALOADED BY INTEGWS. 
Ra642 ROUTINE SETS UP A-NEytORY IF ENTERED AT IN^EGI^f,l AND SETS THE INTEQ. 

R0ft43 PROGRAM FOR PRECISION OR CONIC 

R0644 THE CALLER MUST FIRST CALL INTSIALL TO QIEC50 IF INTEG. IS IN USE BEFORE 
R0845 setting ANY FLAGS. 

B0848 THE FLAGS WHICH WOULD BE SET OR CLEARED ARB 
H084T VINTPLAO HONORED WHEN ENTERED PRCM INTBGIVS) 

ROSAS WTYPPLG 

R0649 DIHoFLAG 

ROSSO D 8 OR 9 FLO 

ROSSI CALLING SEQUENCE 

ilOS52 L-X CALL 

R0S53 L-Y INTSTALL 

ROSSA L -1 SET OR CLEAR ALL POUR FLAGS. ALSO CAN SET STATEFIE IP DESIRED 
R0S5S and DIMoPLAO IS CLEAR. 

ROSSS L CALL 

R0S5T L *1 INTBtav 

ROSSS initialization 

ROSSS FLAGS AS ABOVE 

ROSSO STORE TI^« TO INTEGRATE TO IN TDECi 
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R0661 

oumrp 



R0662 

RATT 

AS 


II0663 

VATT 

DBPINH) 


R0664 

TAT 


BEPOHE 

0665 




13,3113 

0666 . 

REP 

7 

LAST 1289 

13,3114 

0667 




13,3115 

0668 

REP 

2 

LAST 1289 

13,3116 

0669 

REP 

2 

LAST 1289 

13,3117 

0670 




13,3120 

0671 

REP 

21 

last 1230 

13,3121 

0672 

REP 

2 

last 1289 

13,3122 

0673 




13,3123 

0674 

REP 

14 

LAST 1289 

13,3124 

0675 

REP 

2 

last 259 

13,3125 

0676 

REP 

1 


13,3126 

0677 




13,3127 

0678 

REP 

50 

last 1286 

13,3130 

0679 

REP 

2 

LAST 76 

13,3131 

0680 




13,3132 

0681 

REP 

16 

LAST 1288 

13,3133 

0682 

REP 

1 


13,3134 

0683 

HEP 

1 


13,3135 

0684 




13,3136 

0685 

ME 

5 

LAST 1284 

13,3137 

0686 

REP 

1 


13,3140 

0687 

REP 

95 

last 1284 

13,3141 

0688 




13,3142 

0689 

REP 

49 

last 1227 

13,3143 

0690 

REP 

3 

LAST 1227 

13,3144 

0692 

REP ; 

234 

last 1283 

13,3145 

0693 




13,3146 

0694 

HEP 

22 

last 1290 

13,3147 

0695 

REP 

1 


13,3150 

0696 




13,3151 

0697 

HEP 

15 

last 1290 

13,3152 

0698 

REP 

2 

LAST 32 

13,3153 

0699 

REP 

2 

LAST 32 

13,3154 

0700 




13,3155 

0701 

REP 

22 

last 1230 

13,3156 

0702 




13,3157 

0703 




13,3160 

0704 

REP 

3 

last 1289 

13,3161 

0705 




13,3162 

0706 

HEP 

9 

last 1286 

13,3163 

0707 




13,3164 

0708 




13,3165 

0709 

HEP 

6 

LAST 1252 

13,3166 


77620 0 

INTBOar 

STO 


02214 1 



IHSTOHN 

43014 0 

INTBOWri 

SET 

»T 

04060 0 



RPOPLAO 

04062 1 



NEarlPLO 

77731 1 

IN7BOR/2 SSP 


00053 1 



QPHET 

27127 0 



ALOUfll 

52014 0 


BCN 

GOTO 

01714 1 



VINWLAO 

26662 1 



PT(MCS4 

287 35 1 



PTCALB4 

77745 1 

ALOIDED 

DLCMD 


00041 1 



TDECi 

01101 0 


STORE 

TDEC 

52014 0 


BOPP 

GOTO 

01753 1 



INWPFLG 

27 234 1 



TESTLOOP 

27220 1 



RVCCN 

77414 0 

A-POK 

bopclr Exit 

01652 1 



SIATEPLO 

27157 1 



HECTOUT 

0 5301 0 


TC 

PHASCHNO 

04022 0 


OCT 

04022 

0 5 4 35 0 


TC 

UPFLAG 

00236 0 


adres 

REINTPLG 

0 6006 1 


TC 

INTPHET 

77731 1 


SSP 


00053 1 



QPRET 

27155 0 



PHEXIT 

52014 0 


BCN 

goto 

01714 1 



VINTPLAG 

26636 0 



ATOPCS4 

26711 1 



ATOPLPM 

77624 1 

PHEXIT 

CAU, 


56741 0 



GRP2PC 

45001 1 

RBCTOUT 

SETPD 

CALL 

00001 0 


• 

0 

23344 0 



RECTIPY 

53775 1 


VIXWD 

VSL4 

01503 0 



RRBCT 

57576 1 



0,2 

53715 1 


PDVL 

VSL* 

01511 0 



VRBCT 


U88IUS PAGE NO. 12 83 S3 


PHASE CHANGE HAS OCCURRED BBWEEN 
INTSWLL AND INIWAkE 


BATT TO POo 
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mo 




13,3101 

51516 1 


6,2 



mi 




13,3110 

03325 0 

POOL. 

PDVL 

VATT to PD6 

TAT TO POl2 

0T12 

HEP 

14 

IAST 1281 

13,3111 

01511 0 


lET 



m3 

HEP 

10 

lAST 1290 

13,3112 

01503 0 


RI®CT 



iT14 




13,3113 

04115 0 

PDVL 

PDDUi 



OTIS 

HEP 

1 

IAST 1290 

13,3114 

01511 0 


VRECT 



OTIO 

REP 

2 

LAST 480 

13,3115 

50041 1 


HJEAR1H,2 



071T 




13,3110 

16006 0 

PU91 

.AXT,1 



OTIS 




13,3m 

HT85 0 

DEC 

-10 



OTIO 




13,3200 

16014 0 

BCN 

AXT,1 



tT20 

RES' 

IS 

LAST 1289 

13,3201 

00303 1 


HOCNPLAO 



OTZl 




13,3202 

2T204 1 


♦2 



0T22 




13,3203 

HTT5 1 

DEC 

-2 



8TZ3 




13,3204 

40001 1 

INTEXIT SETPD 

BOV 



eT24 




13,32(e 

OOOOl 0 


0 



0T2S 




13,3200 

2T20T 1 


♦1 



eT2Sl 




13,3201 

43014 0 

CLEAR 

(XEAR 



01252 

REP 

2 

LAST 284 

13,3210 

04676 1 


AvB4ID9r 

ALLOp UPDATE 

OF DOWNLINK STATE VECTOR 

0T2S3 

REB' 

5 

LAST 1289 

13,3211 

01667 1 


PRBCIFLQ 



0120 




13,3212 

17535 1 

SLCttD 

EXIT 



0121 

REP 

8 

LAST 1290 

13,3213 

02215 0 


IHETURN 



0128 

REP 

653 

LAST 1269 

13,3214 

3 0154 1 

CA 

MPAC 



0129 

REP 

38 

LAST 1251 

13,3215 

SO 120 1 

INDEX 

PIXLOC 



0130 

REP 

23 

LAST 1290 

13,3216 

54 052 1 

TS 

QPRBT 



0131 

REP 

4 

LAST 1230 

13,3211 

0 3406 0 

TC 

INTWAkE 



U>132 

B/CON sets up orbit 

integratiw to do a 

CCNIC SCLUTICN POR POSITIQJ AND 




liOT33 VELOCITY FOR THE INTERVAL (TET-TDEC) 



0134 




13,3220 

45345 

1 RVCCN 

DLCWD 

DSU 

0735 

REP 

3 

LAST 1290 

13,3221 

01101 

0 


TDEC 

0730 

HEP 

15 

LAST 1291 

13,3222 

01517 

0 


TET 

0137 

REP 

7 

LAST 1249 

13,3223 

36312 

1 

SlCALL 

TAU. 

0738 

HEP 

4 

LAST 1290 

13,3224 

23344 

0 


HECriPy 

0739 




13,3225 

77624 

1 

CALL 


0740 

HEP 

1 


13,3226 

22310 

0 


KEPPHBP 

0141 




13,3221 

43345 

1 

DLOW) 

DAD 

0142 

REP 

8 

LAST 1252 

13,3230 

01551 

1 


TC 

0143 

REP 

16 

LAST 1291 

13,3231 

01517 

0 


TET 

0144 

REF 

17 

LAST 1291 

13,3232 

35517 

1 

STCALL TET 

0145 

REP 

2 

LAST 1290 

13,3233 

27157 

1 


HECTCUT 
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IBSTLOOP 


0748 




13,3234 

43014 0 

TESTLOOP BCP 

CLflOO 

07482 

ter 

4 

WST1284 

13,3235 

04752 0 



QoimAa 

07483 




13,3236 

27241 0 



*3 

07484 

tee 

« 

tASr 1290 

13,3237 

01632 1 



SIATEPUJ 

07485 

tey 

1 


13,3240 

27204 1 



WTBXIT 

07488 




13,3241 

73001 1 

♦3 

SBTTD 

LXA,2 

8747 




13,3242 

00013 0 



lOD 

0748 

tee 

9 

last 1299 

13,3243 

02150 1 



P 6 CDY 

0749 




13,3244 

51575 1 


VLCMO 

ABVAL 

0750 

tee 

IT 

last 1287 

13,3245 

01535 0 



acv 

875X 




13,3246 

43006 0 


puai 

CLEAR 

0752 

tee 

1 


13,3247 

00262 1 



MIDPLAO 

0753 




13,3250 

50023 0 


DSU* 

EKW 

0754 

tee 

1 


13,3251 

67241 1 



I »«,2 

8755 




13,3252 

27255 0 



♦3 

0758 




13,3253 

77614 1 


®T 


0757 

tee 

2 

LAST 1292 

13,3254 

00062 0 



MIDPLAO 

0758 




13,3255 

41345 0 

NOBPINAL DLQAD 

DMP 

0759 




13,3256 

00013 0 



lOD 

0760 




13,3257 

00043 0 



34 D 

0761 




13,3280 

55762 1 


SRlR 

DCV4: 

0762 

tee 

3 

last 1291 

13,3261 

50041 1 



MUEARm ,2 

0763 




13,3262 

41366 1 


SORT 

CMP 

0784 

tee 

1 


13,3263 

23675 1 



.30 

0765 




13,3264 

40442 1 


SR3 

SR4 

0766 




13,3265 

54345 1 


MXMD 

SL 

0767 

tee 1 

354 

LAST 1291 

13,3266 

00155 0 



MPAC 

0768 




13,3267 

20220 0 



ISD 

0769 




13,3270 

40006 0 


puai 

BO/ 

0770 

RBP 

1 


13,3271 

27316 0 



M4XDT 

0771 




13,3272 

50021 1 


BDSU 

IMI 

0772 

US' 

1 


13,3273 

27370 0 



DT/2MAX 

8773 

OS' 

2 

LAST 1292 

13,3274 

27316 0 



MAXDT 

8774 




13,3275 

45345 1 

DT/ 2 CCMP DtXttO 

DSU 

8775 

fH' 

4 

last 1291 

13,3276 

01101 0 



TDEC 

0776 

tee 

IS 

LAST 1291 

13,3277 

01517 0 



IBT 

6777 




13,3300 

54234 0 


RIB 

SL 

0778 

tee 

4 

last 715 

13,3301 

45541 0 



SQ4AGREE 

0779 




13,3302 

20211 1 



80 

0780 

tee 

2 

last 88 

13,3303 

02314 0 


STORE 

DT /2 

0781 




13,3304 

51400 1 


BO/ 

AflS 

0782 

tee 

1 


13,3305 

27322 1 



GBIMAxDT 

0783 




13,3306 

50025 0 


DSU 


0784 




13,3307 

00015 0 



120 

0785 

tee 

1 


13,3310 

27326 0 



POOHCHC 

0788 




13,3311 

75345 1 

USE4AXOT KXMD 

SIC59 

0787 




13,3312 

OOOIS 0 



12 D 

0788 

tee 

3 

LAST 1292 

13,3313 

02314 0 



DT /2 


STOP INTHBWTICN 


BC TO loD 

MIDPLAO=0 IP R O.T. IMP 


DT IS TajNCAm) TO A I4JLTIP1E 


OP 128 csecs. 




B-19 


IS TIME TO INTBG. TO GR 1HA.N MAXTI.'A? 
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0T89 

REP 

4 

iAsr 1292 

13,3314 

36314 

1 


SICAU, Dr/2 

0T9O 

HEP 

2 

LAST 1292 

13,3315 

27326 

0 



POOHCrtC 

0T91 




13,3316 

65345 

0 

MAjOT 

DLOU) 

FCDL 

0T92 

REP 

2 

IAST 1292 

13,3317 

27370 

0 



Dr/2MAX 

0T93 




13,3320 

77650 

1 


aoio 


0T94 

REP 

1 


13,3321 

27275 

1 



n/zctup 

0T95 




13,3322 

77634 

0 

OEimxDT RTB 


0T9e 

REP 

15 

LAST 828 

13,3323 

45707 

0 



SIOMPAC 

0T9T 

HEP 

5 

IAST 1293 

13,3324 

38314 

1 


SlCALL DT/2 

0T98 

REP 

1 


13,3325 

27311 

1 



usemaxdt 

0T99 




13,3326 

51545 

1 

POOHCrtC 

DLOAD 

ABS 

0800 

REP 

8 

IAST 1293 

13,3327 

02314 

0 



DT/2 

0801 




13,3330 

50025 

0 


DSU 

BtV 

0802 

HEP 

1 


13,3331 

27366 

1 



DT/2MIN 

0803 

HEP 

2 

LAST 1287 

13,3332 

27136 

0 



A-PCrtC 

0604 




13,3333 

46135 

1 


9XHO 

BHIZ 

0805 

HEP 

13 

LAST Til 

13,3334 

01012 

0 



MCDREQ 

0808 




13,3335 

27340 

0 



♦3 

0807 




13,3336 

77850 

1 


QOTO 


0808 

REP 

1 


13,3337 

23155 

1 



TiMBsrep 

08081 




13,3340 

77814 

i 


BCN 


08082 

REP 

6 

LAST 1291 

13,3341 

01707 

0 



PRBCIPLO 

08083 

REP 

2 

LAST 1293 

13,3342 

23155 

1 



TIi«SIEP 

0809 




13,3343 

45345 

1 


DLOfiD 

DSU 

0810 

REP 

T 

LAST 1293 

13,3344 

02314 

0 



DT/2 

0811 




13,3345 

00015 

0 



I2D 

0812 




13,3346 

43040 

1 


thU 

BOPCLR 

0813 

REP 

3 

LAST 1293 

13,3347 

27136 

0 



A-PCttC 

0814 

REP 

3 

LAST 1290 

13,3350 

04242 

1 



NEWIPLO 

0815 

REP 

3 

LAST 1293 

13,3351 

23155 

1 



TIME STEP 

0816 




13,3352 

45345 

1 


DLCAD 

DSU 

OBIT 

REP 

5 

last 1292 

13,3353 

01101 

0 



TDEC 

0818- 

REP 

19 

LAST 1292 

13,3354 

01517 

0 



TET 

08181 




13,3355 

77640 

0 


HW 


08182 

REP 

2 

LAST 1292 

13,3356 

27204 

1 



INTEXIT 

0819 




13,3357 

40525 

1 


POX, 

SR4 

0820 

REP 

8 

LAST 1293 

13,3360 

02314 

0 



Dr/2 

0821 




13,3361 

44322 

1 


8R2R 

HDSU 

0822 




13,3362 

52040 

1 


BW 

GOTO 

0823 

REP 

3 

LAST 1293 

13,3363 

27204 

1 



INTEXiT 

0824 

REP 

4 

LAST 1293 

13,3364 

23155 

1 



TIMBSIEP 

0825 




13,3365 

00000 

1 


2DEC 

3 B-20 

0825 




13,3366 

01400 

1 




0826 




13,3367 

14152 

1 

Dr/2MAx 

2D6C 

4000 E2 B-20 

0826 




13,3370 

00000 

1 




0828 




13,3371 

TTTT6 

1 

INTSIALL EXIT 


0829 

REP 

250 

LAST 1228 

13,3372 

3 4714 

1 


CAP 

ZERO 

0830 

REP 

209 

LAST 1201 

13,3373 

54 001 

1 

ALLSWU, TS 

L 

0831 

REP 

5 

LAST 184 

13,3374 

3 0106 

0 


CA 

BASPIAG 

0832 

REP 

210 

LAST 1293 

13,3375 

50 001 

0 


INDEX 

L 


Exchange or/2MAx with ccmpuihd max. 


NAS THIS CAU, VIA CSMILBOPBSC 


NO HAQcwARD intecwaticn 


IS 4<DT) LStTDGC _ TBT) 
NO 


I 

I 
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0833 BBP 1 

0834 

0835 RBP 1 

0838 RBP 211 

083T BBP 1 

0838 RBP 4 

0839 

08395 BBP 2 


HEP 2 
BEP 212 
BBP 2 
HEP 10 
BEP 235 





13,33T0 

7 3467 0 


MASK 

INTBITAB 


13,33TT 

0 0006 1 


Exraoj 

I^ST 1293 

13,3400 

1 3445 0 


BzP 

CKTOffilAB 

13,3401 

50 001 0 


INDEX 

L 

LAST 41T 

13,3402 

3 3464 1 


CAP 

wakestal 

13,3403 

0 5070 0 


TC 

JOBSLaSP 

LAST 504 

13,3404 

77776 1 

intwakeo exit 


13,3405 

1 3426 0 


TCP 

INTWAkEi 

last 1293 

13,3406 

4 0106 1 

INTWAKE 

cs 

RASPLAQ 

LAST 1199 

13,3407 

7 4704 1 


mask 

BEINTBIT 

13,3410 

10 000 0 


CCS 

A 

last 1294 

13,3411 

0 3426 1 


IC 

INTWAkEi 

last 1291 

13,3412 

50 120 1 


INDEX 

PIXLOC 

LAST 1291 

13,3413 

3 0052 0 


CA 

QPRBT 


13,3414 

55«055 1 


TS 

TBASEz 

last 1290 

13,3415 

0 5301 0 


TC 

mASQiNO 


13,3416 

04022 0 


OCT 

04022 

LAST 1294 

13,3417 

3 1055 0 


CA 

THAffi2 

LAST 1294 

13,3420 

50 120 1 


INDEX 

PIXLOC 

LAST 1294 

13,3421 

54 052 1 


TS 

QPBET 

LAST 1294 

13,3422 

3 4704 0 


CAP 

BEINTBIT 

LAST 1294 

13,3423 

7 0106 1 


mask 

BASPLAO 


13,3424 

0 0006 1 


EXTBID 



13,3425 

1 3450 1 


BzP 

GOBAC 

LAST 1293 

13,3426 

3 4714 1 

INTWAkEi cap 

zero 

last 1294 

13,3427 

54 154 0 

wake 

TS 

STALTSM 

13,3430 

50 154 1 

WAkEi 

INDEX 

SDALTTM 

LAST 1294 

13,3431 

3 3464 1 


CAP 

WAkESTAL 


13,3432 

0 0004 0 


INHINT 


LAST 41T 

13,3433 

0 5074 1 


TC 

jobwakb 

LAST 1186 

13,3434 

10 064 1 


CCS 

LOCCto 


13,3435 

1 3430 1 


TCP 

WAkEi 


13,3436 

00051 0 

PDRTYCNE DEC 

41 

LAST 1294 

13,3437 

50 154 1 


INDEX 

SDAL1B4 

LAST 1294 

13,3440 

4 3467 0 


CS 

INTBITAB 

LAST 1294 

13,3441 

7 0106 1 


MASK 

BASFLAG 

last 1294 

13,3442 

54 106 1 


TS 

BASPLAO 


13,3443 

0 0003 1 


BELINT 


LAST 1294 

13,3444 

1 3450 1 


TCP 

GOBAC 

last 1294 

13,3445 

50 001 0 

QCrOSWB 

INDEX 

L 

LAST 183 

13,3446 

3 4675 1 


CAP 

INTPIBIT 

LAST 1294 

13,3447 

26 106 1 


ADS 

BASFIAG 

LAST 1290 

13,3450 

0 6006 1 

GOBAC 

TC 

INTPRBT 


13,3451 

77616 0 


RVO 



IS 1HIS STALL AREA PBEB 


IS THIS INTSWLLED ROUTINE TO BE 

restarted 


YES. DCNT RESTART WITH SChEOffl ELSES O 


IXKT INTWAkE ip WE CA;'e here via RESTART 


INDEX OP ANY STALL USER 




MAY HE MORE TO WAkB UP 


RELEASE SIAIJ, AREA 


NO, WAIT UNTIL AVAHABI.B 






ASSB«LB R»rISia4 249 OP AOC PRCXSAM COUJSSUS ffif HASA 2021111-041 


20’35 OCT. 28,1968 SATBAP .OOT PAOB 1295 


nriBGtlATlCH IMITIALIZATICK 


USBIUS PAOB NO. IT B3 S3 


99T8 

03T9 

IKP 

154 

lAST 1257 

13.3452 

13.3453 

0880 

BBP 

1 


13,3454 

0881 

0882 

HEP 

66 

lAST 1204 

13.3455 

13.3456 

0883 

RH' 

2 

LAST 1295 

13,345T 

0884 

HEP 155 

LAST 1295 

13,3460 

0885 

HEP 

1 


13,3461 

0886 

REP 

6T 

LAST 1295 

13,3462 

688T 

BBP 

2 

LAST 1295 

13,346 3 

0888 

HEP 

2T 

LAST 1289 

13,3464 

0889 

HEP 

. 1 


13,3465 

0890 

REP 

1 


13,3466 

0891 

HEP 655 

LAST 1292 

0154 

0892 

0893 

0894 




13,3467 

13.3470 

13.3471 


7TTT6 

1 

ERASlALl EXIT 


3 4712 

1 

CAP 

CKE 

1 3373 

1 

TCP 

ALLSIALL 

7TTT6 

1 

ERASTAL2 EXIT 


3 4711 

1 

CAP 

TWO 

1 3373 

1 

TCP 

ALLSWLL 

3 4712 

1 

erasnaki cap 

CNE 

1 3427 

1 

TCP 

wake 

3 4711 

1 

ehas(iAk2 cap 

TWO 

1 3427 

1 

TCP 

wake 

27372 

1 

WAKESlAL CADR 

INTSTALL +1 

27453 

0 

CAKl 

ERASWLl +1 

27456 

0 

CADR 

EHAS1AL2 +1 



SIALTB4 EQUALS MPAC 

20100 

1 

KOBITAB OCT 

20100 

10040 

1 

OCT 

10040 

04020 

1 

OCT 

04020 


11 
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R0898 

M89T 

>0898 

>0899 

>0900 

>0901 

>0902 


performs n® TRANSITION PROM A THRUSTING PHASE TO THE COAST 
PHASE BV initializing THIS VHIICLES PEBMANBIT SWTE VECTOR WITH THE 
VAUes LEFT BV THE AVERAGEG ROUTINE IN RN,VN,PIPTU«. 

THIS IS DO® THE W-MATRIX, IF ITS VALID (ORSfPlAG OR HENDuPLG IS 
SET) IS INTEffiWTHD FORWARD TO PIPTD® WITH THE PRE-THRUST STATE VECTOR. 

IN ADOITIOI, THE OWBR vaiHXE Is INTBCSaATH) tPEHMANBJT) TO PIPTD®. 

FINALLY T»0«<CNT IS ZEROED 


0903 

REP 

3 

last 1283 

13,2000 


®TLOC INTINIT 

0904 




13,3472 


bank 


0905 

REP 

3 LAST 1283 TO 1296’ 

457 487* 

COUNT* Il/INTIN 

0908 




13,3472 

43020 1 

AvETCNID STO 

BCN 

0907 

REP 

14 

last 1230 

13,3473 

02317 0 


egress 

0908 

REP 

10 

LAST 624 

13,3474 

02716 0 


RB4DWPLG 

0909 

REP 

1 


13,3475 

27550 1 


INT/W 

0910 




13,3476 

77614 1 

BCN 


0911 

REP 

12 

last 623 

13,3477 

01711 1 


ORBwFLAG 

0912 

REP 

2 

last 1296 

13,3500 

27550 1 


INT/W 

0913 




13,3501 

77614 1 

OIHBHS BCN 


09131 

REF 

5 

last 1286 

13,3502 

04307 1 


SURPPLAO 

09132 

RHP 

1 


13,3503 

27520 0 


setcoast 

09133 




13,3504 

45145 0 

DLOVD 

CALL 

0914 

HEP 

16 

last 1039 

13,3505 

01205 1 


PIPTIl® 

0915 

REP 

28 

last 1295 

13,3506 

27371 1 


INTSTALL 

0916 




13,3507 

45014 0 

SET 

CALL 

0917 

REP 

16 

last 1290 

13,3510 

01474 1 


VINTFLAG 

0918 

REP 

3 

last 1284 

13,3511 

26621 0 


»riPLGS 

0919 




13,3512 

43014 0 

BOP 

CLEAR 

0920 

REP 

3 

last 485 

13,3513 

02747 1 


COtPUlEH 

0921 




13,3514 

27516 0 


*■2 

0922 

HEP 

17 

LAST 1296 

13,3515 

01674 0 


VlNlffLAO 

0923 

HEP 

51 

last 1290 

13,3516 

34041 0 

STCALL 

WBC\ 

0924 

REP 

11 

LAST 1287 

13,3517 

27113 1 


INTBEW 

0925 




13,3520 

45174 1 

SEICCMST AXT,2 

CALL 

0926 




13,3521 

00002 0 


2 

0927 

RHP 

29 

LAST 1296 

13,3522 

27371 1 


INTSTALIa 

0928 




13,3523 

77014 1 

BCN 

AXT,2 

0929 

REP 

9 

LAST 1229 

13,3524 

04303 0 


MOCNIHIS 

0930 




13,3525 

27527 1 


4-2 

0931 




13,3526 

00000 1 


0 

0932 




13,3527 

53775 1 

VLOAD 

VSR* 


W-MATRIX valid ,00 INTEGRATE IT 
W-MATRIX VALID ,G0 INTEGRATE IT 

for 

C»4 

doit DO IM q<LY 

get set FOR NCN W-MAT PERMANENT INTEG 

DESIRED TIME 

CM 

ffirs UP NO® W-MAT. permanent INTEG. 


CCMPUIER IS LM , INTEG CM 
C01PUIER IS CM .INTEG LM 


NOW MCVE PROPERLY SCALED RN.VN AND 
PIPTI!« TO INTEGRATICN ERASABLES. 
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nneGBATION initialization 


18 IAST T90 


HEP 11 LAST 1291 
IBS' 18 lASr 1292 
hep it lAST 1296 
hep 20 LAST 1293 
hep 18 LAST 841 


hep 2 last 503 


8 LAST 850 


2 LAST 1230 


13.3530 

13.3531 

13.3532 

13.3533 

13.3534 

13.3535 

13.3536 

13.3537 

13.3540 

13.3541 

13.3542 

13.3543 

13.3544 

13.3545 

13.3546 

13.3547 


hep 18 LAST 1297 
hep 30 LAST 1296 


hep 15 LAST 1289 
hep 3 last 1291 


HEP 6 LAST 1284 
HEP 18 LAST 1296 


hep 4 LAST 1296 
HEP 19 LAST 1297 


hep T last 1297 
HEP 52 LAST 1296 
hep 12 LAST 1296 


13.3550 

13.3551 
13,355 2 

13.355 3 

13.3554 

13.3555 

13.3556 

13.3557 

13.3560 

13.3561 

13.356 2 

13.3563 

13.3564 

13.3565 

13.3566 

13.3567 

13.3570 

13.3571 

13.3572 


20*35 OCT. 28,1966 SATHAP .007 PACE 1297 
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01171 1 
57176 0 
01503 0 
15535 0 
01205 1 
25517 0 
01177 1 
45057 1 
57176 0 
23360 0 
66234 1 
26651 1 
01127 1 
00000 1 
77650 1 
75745 0 


IH 

0,2 

STORE RBECT 
STOOL HCV 

PIPTIME 
STtVL TBT 
VN 

VSB* CALL 

0,2 

MINIRECT 
RIB 3SP 

HCVA1HIS 

THKrtCCNT 

0 


FINISH SETTINO UP STATE VECTOR 
PUP TEMP state vector INTO PERMANENT 


45145 0 
01205 1 
27371 1 
43014 0 
01476 0 
04476 0 
43014 0 
01475 0 

01674 0 
43014 0 
02747 1 
27567 0 
01474 1 
77614 1 

01675 1 
34041 0 
27113 1 
77650 1 
27501 0 


DLOAD 

CALL 



PIPTIMB 

INTSTALL 

INTEGRATE W THRU BUIW 

®T 

ffiT 



DIMOPLAG 

DO W-MATRIX 


AVEMIDat 

SO WCNT CIXBBER IW,VN,PIPTI>E 

ffiT 

CLEAR 



DBQRgPLG 

9X9 POR LM 


VlNTPLAO 

LM 

BGP 

set 

ccmpuier 



+4 

IX TO DO 

CLEAR 

VlNTFLAG 



DeOHgPIjO 

6X6 POR 04 


SlCALL TDECi 

INTEQftr 

GOTO 

OTHERS 


NO» GO DO THE OIHER VEHICLE 
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INISXSWIES (PHECISICN) TO 1HB TIMB SPBCIPIH) IN TOGCi 
M97 K* IN^TICN TI«B STEP. CurhENT TI* pSs^W 

™ CCMPU»1U(N TIMS POR Qffi TI^E STEP) 

ZV, \l IS set AM, THE INTEORA^^ 

R09T4 return IS IN BASIC TO THE RETURN ADDIfflSS PLUS ONE. 

M9T5 THE INTBTOlTKH IS FINISHED TO THE DESIRHD TIME HEIUW IS IN BASIC 

R09T6 TO THE RBTUTOI ADDRESS ' I" BASIC 

HETUFWINO, the ExTEAPOATH, state vector is TRAN 
M9TB PERHH, FRCM R^vATT TO R,VNl-PIPTMi Is SET TO THE FINISHING INTEGRA 
R0979 TICK TI* AND MPAC Is SCT TO THE DELTA TIME-- INTEGRA- 

K Mnn01V2 «T MINUS (XIRHB.TTI*. 

M982 THIS ROITINE INTE(3MTES THIS VBIICLES STATE VECTOR TO THE QiRRENT TIM? 
R0983 NO INPUTS ARE REajIRBD OP THE CALLER. RETUISI Is IN BASIC TO THE HEAnN 
R0984 ADDRESS WITH THE ABO/E TRANSFERS TO R,VNl-PIPTIi'«i-AND MPAC DCNB 


0985 REF 2 LAST 78 

0986 


0987 

REF 

3 

CAST 1298 

0988 

REF 

1 


0989 

REF 

1 


0990 

0991 

REF 

4 

CAST 1298 

0992 

0993 

REF 

2 

CAST 1298 

0994 

REF 

27 

cast 1283 

0995 

0996 

REF 

1 


0997 

REP 

53 

CAST 1297 

0998 

0999 

HEP 

1 


1000 

REF 

1 


1001 

1002 

REP 

ZB 

CAST 1298 

1003 

REF 

2 

cast 1298 

1004 

REF 

54 

cast 1298 

1005 

1006 

1007 

REF 

31 

CAST 1297 


1127 

13.3573 

13.3574 

13.3575 

13.3576 

13.3577 

13.3600 

13.3601 

13.3602 

13.3603 
13,36 04 
13,3805 
13,3608 
13,3607 

13.3610 

13.3611 

13.3612 
13,3813 

13.3614 

13.3615 

13.3616 

13.3617 
13,3620 


EBAMc^ IBETURNl 

43020 1 MICmAvs SIO CLHGO 

01127 1 IRBTUroil 

04634 1 MIDiPIAG 

27812 1 e4TMID2 

43020 1 MIDTOIVI SIO SET 


01127 1 
04474 1 
43234 0 
45505 0 
27714 0 
51021 0 
00041 1 
27616 0 
77624 1 
27702 1 


IHBTUIWi 
M lDlFLAD 
RIB DAD 

L(ADTIi« 
TIMH)a,T 
BDSU BPL 
TDBCl 
BHMIDi 


integrate to present TI.'€! plus timedelt 


integrate to TDECi 


INITIAL CHECK, IS TDECi IN THE FUTURE 


NO, set AIARM, SWITCH TO MIDTCAV2 


43234 0 ENTMID2 RIB DAD 

45505 0 LCMDTIME 

27714 0 TI)«)ei,T 

00041 1 STORE TDBCl 

77624 1 BITMIDi CAIU 

27371 1 INTSTAU, 

45014 0 clear call 
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L 

IKlBCtlATICM initialization 





USR«S PAGE NO. 21 

B2 S3 

1008 

HEP 

18 

lAST 129T 

13,3821 

01676 1 



DIMOFLAO 

NO W-miKIX 


1009 

RBP 

1 


13,3822 

26034 1 



THISYINT 



1010 




13,3823 

43014 0 


CLEAR 

SET 



1011 

HEP 

IT 

LAST 1290 

13,3624 

01673 1 



INTYPPLO 



1012 

HEP 

1 


13,3625 

04475 0 



MimvPLB 

LET INTBO. KNO«r THE CALL 

IS POR MIDTOAV. 

1013 




13,3826 

77624 1 


CALL 




1014 

HEP 

13 

LAST 1297 

13,3827 

27113 1 



INTHSV 

00 INTEtaATE 


1015 




13,3630 

77214 0 


CLEAR 

VLQAD 



1018 

HEP 

2 

LAST 1299 

13,3631 

04675 1 



HimvPLB 



lOlT 

HEP 

3T 

LAST 88T 

13,3632 

00001 0 



RATT 



1018 

HEP 

9 

LAST T90 

13,3633 

25 232 0 


STtVL 

INl 



1019 

HEP 

24 

LAST 889 

13,3834 

00007 0 



VATT 



1020 

HEP 

4 

LAST 790 

13,3635 

15240 0 


STOOL 

VNl 



1021 

HEP 

11 

LAST 889 

13,3636 

00015 0 



WT 



1022 

hep 

8 

lAST 786 

13,3637 

01246 0 


STQBE 

PIPTI^El 



10221 




13,3840 

66134 1 


SKA, 2 

SlCA.l 



10222 

hep 

15 

LAST 789 

13,3641 

03746 1 



RECS 



10223 

HEP 

11 

LAST 668 

13,3642 

03745 1 



HTXl 



1023 




13,3643 

77776 1 


EKIT 




1024 




13,3644 

0 0004 0 


INHINT 




1025 




13,3645 

0 0006 1 


EjoBro 




1028 

BBP 

28 

LAST 1066 

13,3646 

4 0025 1 


DCS 

TIS€;2 



102T 

HEP 

858 

LAST 1295 

13,3847 

20 155 1 


ms 

MPAC 



1028 

HEP 

10 

LAST 1132 

13,3650 

0 7226 0 


JC 

TPAGHEE 



1029 

HEP 

5 

LAST 1298 

13,3851 

3 1127 1 


CA 

IRBTUR41 



1030 

HEP 

T 

LAST 565 

13,365 2 

0 4577 0 


7C 

bank JUMP 



1031 




13,3653 

47014 1 

CKMID2 

BCP 

RIB 



1032 

HEP 

3 

LAST 1298 

13,3654 

04754 0 



MIDlPLAG 



1033 

HEP 

1 


13,3655 

27672 1 



MID2 



1034 

HEP 

29 

LAST 1298 

13,3656 

45505 0 



LCADTINE 



1035 




13,3857 

44215 1 


DAD 

rosu 



1036 

HEP 

3 

LAST 1298 

13,3860 

27714 0 



TL'SDBLT 



103T 

HEP 

6 

LAST 1293 

13,3661 

01101 0 



TDEC 



1038 




13,3662 

45044 0 


BPL 

CALL 



1039 

HEP 

2 

LAST 1290 

13,3663 

27 234 1 



TESILOOP 

YES 


1040 

HEP 

2 

LAST 1298 

13,3664 

27702 1 



NOTIi* 



1041 




13,3665 

43234 0 

TI.'BINC 

RIB 

DAD 



1042 

HEP 

30, 

LAST 1299 

13,3666 

45505 0 



LOIDTIW 



1043 

REP 

4 

LAST 1299 

13,3667 

27714 0 



TIMEDELT 



1044 

REP 

T 

LAST 1299 

13,3670 

35101 1 


SICALL TDBC 



1045 

RET 

3 

LAST 1299 

13,3671 

27 234 1 



TESILOOP 



1048 




13,3672 

45345 1 

MID2 

DLQAD 

DSU 



104T 

REP 

8 

LAST 1299 

13,3673 

01101 0 



TDEC 



1048 

REP 

21 

LAST 129T 

13,3874 

01517 0 



TET 



1049 




13,3675 

45246 0 


AB5 

DSU 



1050 

HEP 

1 


13,3676 

27712 0 



3CSBCS 






I 
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wtbwation initialization 


1051 




13,30TT 

52040 1 



GOTO 

1052 

■BP 

4 

LAST 1293 

13,3700 

27136 0 



A-PCIOC 

1053 


1 


13,3701 

27665 1 



TTNCINC 

1054 




13,3702 

77414 0 

NOTINB 

CL£AR 

EXIT 

1055 

■BP 

4 

LAST 1299 

13,3703 

04674 0 



MIDlFLAO 

1050 

BBF 

0 

LAST 1299 

13,3704 

25*127 1 


INCr 

IRETURNl 

105T 

■S' 

34 

last 1161 

13,3705 

0 5537 0 


TC 

ALAHM 

1058 




13,3708 

01703 1 


OCT 

1703 

1059 

W' 230 

last 1294 

13,3707 

0 6006 1 


TC 

INTPRET 

1000 




13,3710 

77616 0 


RVQ 


1001 




13,3711 

00000 1 

3CSBCS 

2DeC 

3 

lOOl 




13,3712 

00003 1 




1002 




13,3713 

00000 1 

TINHJELT 2DBC 

1250 

1002 




13,3714 

02342 0 




1003 




27,2662 



bank 

27 

1004 

■HP 

1 


27,2000 



SETLOC UPOATB2 

1005 




27,2662 



bank 


1000 

HBP 

1 


0330 



EBANK: 

: intwakuo 

lOOT 

■BP 

1 





CCUNT4 $$/INTIN 

1008 

IBP 

1 


0330 


INTKAKUO = 

intwakio 

1009 




27,2662 

0 0003 1 

INTWAkEU RELINT 

lOTO. 




27,268 3 

0 0006 1 


EXTEND 

lOTl 

RB' 

2 

LAST 1300 

27,2664 

22 330 1 


(KCH 

intwakuo 

10T2 

■BP 

237 

LAST 1300 

27,2665 

0 6006 1 


TC 

INTVHBT 

10T3 




27,2666 

53135 0 


aXMD 

BZE 

10T4 

RHP 

3 

LAST 1T9 

27,2867 

01502 1 



UPSVFLAQ 

10T5 

RHP 

1 


27,2670 

56727 0 



INTWAKUP 

lOTO 




27,2671 

77775 1 


VLOA0 


lOTT 

RHP 

12 

last 129T 

27,2672 

01503 0 



RHECt 

tore 

IBP 

19 

last 129T 

27,2673 

255 35 0 


STOVL 

flCv 

10T9 

BKP 

6 

last 1291 

27,2674 

01511 0 



VHECT 

1080 




27,2875 

77624 1 


CALL 


1081 

RHP 

5 

last 1291 

27,2678 

23361 1 



rectify +13D 

1082 




27,2677 

51535 0 


SLOAD 

ABS 

1083 

■S' 

4 

LAST 1300 

27,2700 

01502 1 



UPSVFLAG 

1084 




27,2701 

53025 0 


DSU 

BzE 

1085 

HSP 

1 


27,2702 

16740 0 



UPNNSVO) 

1088 

RHP 

1 


27,2703 

56710 1 



INTWAkSM 

108T 




27,2704 

43174 1 


AXT,2 

d-RGO 

1088 




27,2705 

00000 1 


DEC 

0 

1089 

RBP 

19 

last 1291 

27,2706 

00223 1 



MOCNFLAG 


20*35 OCT. 28,1908 SATRAP .OOT PACE 1300 
USBBbS page no. 22 82 S3 


TOO lATB 

®T ERROR EXIT (CALLOC *2) 
INSUPPICiaiT TINE FOR INTBCSIATICN — 
TIG WILL BE SLIPPED. . . 



TBIPORARY UNTIL MANE OP INTWAKIO IS CSBJG 


SAVE O FOR RETURN 


IS THIS A CS4/LB4 STATE VECTOR UPDATE 
bequest. IP NOT GO TO INTWAKUP. 

MOVE RRBCTIo) and VRECT<6) INTO 

HCV(6> and VCvCo) RESPECTIVELY. 

NOW GO TO .RECTIFY +130. TO 
STORE VHECT into VCv AND ZERO CUT 
TDeL'WvC6),TNUV(6),TC(2) ANDXKEP(2) 
C04PABE ABSOLUIE VAIUB OF .UPSVFIAG. 

TO .update MOCN state VECTOR CODE. 

TO determine whether the state vector TO 

BE UPDATED IS IN THE EARTH OR IlNAR 

SPHERE OP INFLUENCE 

earth SPHERE CP INFIUENCE. 
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1090 

rep 

1 


27.2T07 

58713 

1 


INTWAkEC 

1091 




2T,2T10 

43174 

\ 

intwakm AXT,2 

set 

1092 




2T.2711 

00002 

0 

DEC 

2 

1093 

REP 

20 

LAST 1300 

2T,2712 

00063 

1 


MXNPIAO 

1094 




2T.2T13 

50135 

0 

INTWAkEC SLCAD 

EML 

A1095 

1096 

HEP 

5 

LAST 1300 

27,2714 

01502 

1 


UPSVPLAO 

109T 

HEP 

1 


27,2715 

58723 

1 


intwaklm 

1090 




27,2716 

77624 

1 

CALL 


1099 

hep 

3 

LAST 1290 

27.2717 

266 36 

0 


ATOPC»< 

1100 




27,2720 

52014 

0 

CLEAR 

GOTO 

1101 

HEP 

13 

LAST 1296 

27,2721 

01671 

0 


obbwplag 

1102 

HEP 

1 


27,2722 

56725 

1 


intwakex 

1103 




27,2723 

77624 

1 

intwaklm call 


1104 

HEP 

3 

LAST 1290 

27,2724 

26711 

1 


ATOPLtM 

1105 




27,2725 

77814 

1 

intwakex clear 


1106 

HEP 

11 

LAST 1296 

27,2728 

02678 

1 


BaOwPLG 

HOT 




27,2127 

45131 

0 

intwakup ssp 

CALL 

HOB 

hep 

6 

LAST 1301 

27,2730 

01502 

X 


UPSVFIAO 

1109 




27,2731 

00000 

X 


0 

1110 

HEP 

2 

LAST 63S 

27,2732 

27404 

X 


intwakEo 

1111 




27,2733 

77776 

1 

E)CIT 


1112 

hep 

9T 

LAST 1294 

27,2734 

0 5301 

0 

TC 

WASCHNG 

1113 




27,2735 

04026 

1 

OCT 

04026 

1114 

HEP 

3 

LAST 1300 

27,2736 

0 0330 

1 

TC 

INTWAKUO 

1115 




27,2737 

00002 

0 

UPWSVCD OCT 

2 

1116 




27,2740 

00000 

1 

OCT 

0 

HIT 




27,2741 

77420 

1 

GBP2PC STO 

EXIT 

HIB 

REP 

3 

LAST 120 

27,2742 

03536 

1 


capzsvo 

1119 

HEP 

98 

LAST 1301 

27,2743 

0 5301 

0 

TC 

phaschno 

1120 




27,2744 

04022 

0 

OCT 

04022 

1121 

HEP 

238 

LAST 1300 

27,2745 

0 6006 

1 

TC 

INTPRET 

1122 




27,2746 

77650 

1 

GOTO 


1123 

REP 

4 

LAST 1301 

. 27,2747 

03536 

1 


GHPZSVO 


LUNAR SPHERE OP INFUENCE. 


COMN CODING APIER X2 INITIALIZ® AND 
MOCNFIAO SBTIOR CLEARED) . 

IS THIS A HEOUEST POR A L£M OR CS4 

STATE vector UPDATE 

UPDATE CSM STATE VECTOR 


update lm state vector 


R04OVE 'update state VECTOR INDICATOR’ 


release 'GRAB' OP ORBIT INTBG 
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KOOOl 

0002 

0003 

0004 
00 OS 

ROOOO 

OOOT 

0008 

0000 

0010 

0011 

0012 

0013 

0014 

0015 
0010 
OOIT 
0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 
002T 
0028 

0029 

0030 

0031 

0032 

0033 
0034- 

0035 

0036 
003T 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 
604T 

0048 

0049 

0050 


REP 1 
REP 1 


REP 85 last 1288 


REP 15 LAST 1287 
REP 8 LAST 1291 


REP 9 LAST 1291 
REP 44 last 1228 


REP 5 LAST 1302 


BEP 18 LAST 1302 


REP- 45 LAST 1302 


13,3715 

11,2000 

11,2310 


bank 13 
SETLOC ORBmL 

bank 

COUNT 11/QRBIT 


REP 10 LAST 1292 


REP 4 LAST 1292 
REP 20 LAST 1300 


11,2310 

40354 1 

KBPPREP UCA, 

2 SETPD 

11,2311 

02150 1 


pbcdy 

11,2312 

00001 0 


0 

11,2313 

75543 1 

DL(MD4 sort 

11,2314 

50041 1 


MUBARTH,2 

11,2315 

53515 0 

POVL 

miT 

11,2316 

01535 0 


RCV 

11,2317 

60325 0 

POOL 

NORM 

11,2320 

00045 0 


36D 

11,2321 

00047 1 


XI 

11,2322 

77715 1 

POST, 


11,2323 

65241 0 

DOT 

PDCX, 

11,2324 

01543 1 


STV 

11,2325 

02312 0 


TAU. 

11,2326 

60225 1 

DSU 

NORM 

11,2327 

01551 1 


IC 

11,2330 

0005 1 0 


Si 

11,2331 

77742 0 

SRl 


11,2332 

65 27 1 0 

DIV 

PDIX, 

11,2333 

00003 1 


2D 

11,2334 

41405 0 

DMP 

PUSH 

11,2335 

00005 1 


40 

11,2338 

65316 0 

OSO 

POOL 

11,2337 

00005 1 


4D 

11,2340 

64716 0 

DSO 

PDOUtr 

11,2311 

50041 1 


HJEAHTH,2 

11,2342 

40442 1 

SR3 

SR4 

11,2343 

47515 0 

POST, 

vso 

11,2344 

01543 1 


vCsr 

11,2345 

44205 0 

DMP 

BDSU 

11,2346 

00045 0 


38D 

11,2347 

41271 0 

D0S( 

DMP 

11,2350 

00003 1 


» 

11,2351 

53605 1 

DMP 

SL* 

11,2352 

23717 1 


DP2/3 

11,2353 

20176 0 


0 -3,1 

11,2354 

43260 1 

XSU,1 

DAO 

11,2355 

00050 1 


Si 

11,2356 

45257 0 

SL* 

DSU 

11,2357 

20211 1 


8D,1 

11,2360 

41205 0 

DMP 

DMP 

11,2361 

00001 0 


OD 

11,2362 

00005 1 


4D 

11,2363 

53657 0 

S(Af 

SlAt 


SQRKHJ) (+18 C® +15) oD PL 2D 


NORM R (+29 OR +27 - Nl) 2D PL 4D 


P7SQ(mMU)(+T (»+5) 4D 
<+28) 


PS(+6 +N1-N2) 6D PL 8D 

(PS)SO(+12 +2(Ni-N2)) sD PL loD 

SSO/MU(-20R +2 (Ni-N 2)) lOD PL 12D 


PREALKX M; (+43 oa +37) 12D PL 140 

PL 12D 
PI, lOD 




-(1/R-ALPHA)(+i2 + 3V1-2N2) 


10L(i/B-ALPHA)(+13 +2(Ni-N2)) 

2(PS)S0 - EtCETRA PL gD 

XI = N2-N1 

-PS+2(PS)SO etc (+6 +N1-N2) PI, 6D 


I 
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0051 




11,2364 

20211 1 


tP.t 

0052 




11,2365 

20201 0 


0,1 

0053 




11,2386 

65215 1 

DAO 

FOOL 

0054 

FBP 

2 

I>ST 94 

11,238T 

01553 0 


xkbp 

0055 




11,2370 

53805 1 

CMP 

SD4 

0056 




11,2371 

00001 0 


OD 

005T 




11,2372 

20202 0 


1,1 

0058 




11,2373 

43204 0 

B(WB 

DAD 

0059 

HEP 

10 

last 1229 

11,2374 

57343 1 


TCDANZIO 

0080 




11,2375 

77826 0 

stadh 


0081 

HEP 

4 

LAST 1251 

11,2378 

75471 1 

STORE 

XKBPNEW 

0062 




11,2377 

74020 0 

SIO 

A>s:,i 

0083 

HEP 

3 

LAST 1253 

11,2400 

02270 0 


kbprw 

0084 




11,2401 

00012 1 

DEC 

10 

0065 




11,2402 

74014 1 

BCN 

AXC.l 

0068 

HEP 

21 

LAST 1301 

11,2403 

00303 1 


MOCNPLAQ 

008T 

HEP 

1 


11.2404 

24000 1 


KEPLEIW 

0068 




11,2405 

00002 0 

DEC 

2 

0069 




11,2406 

77650 1 

OOTO 


OOTO 

HEP 

2 

LAST 1303 

11,2407 

24000 1 


KEPLEW 


USBtUS PACE HO. 2 Bo S3 


S<-PS{l-2PS)-l/8...1C*lt OR >16) 

PL 60 


S{>1T OR *16) 
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18 LAST 1288 
48 LAST 1302 


9 LAST 1293 


10 LAST 1302 
9 last 1302 


22 LAST 1299 

23 LAST 1304 
2 LAST 1291 


11,2410 

66350 1 PBR3 

LXA.l 

SSP 

11,2411 

01500 0 


DIPBQCNT 

11,2412 

00051 0 


Si 

11,2413 

TTT62 1 

DEC 

-13 

11,2414 

54345 1 

DLOID 

SR 

11,2415 

02314 0 


OT/2 

11,2418 

20612 0 


9D 

11,241T 

61500 0 

TIX,1 

ROUND 

11,2420 

22421 0 


♦1 

11,2421 

43206 1 

puai 

DAO 

11,2422 

01551 1 


7C 

11,2423 

16312 0 

STOOL 

TAU. 

11,2424 

TT615 0 

OAO 


11,2425 

01517 0 


TBT 

11,2426 

35517 1 

SlCALL lET 

11,2427 

22310 0 


KEPPREP 





ASSBCILB BBVISIQN 249 OP AOC PROTOAM COLOSSUS BY NASA 2021111-041 



1. 

OBBIlAL 

INTBGBATIQN 





P008T 

AOC HCUTINE to OCMPUIB ACCaEHATICW C(MPCNa<TS. 



MBS 




11,2430 

73150 1 AOCCMP 

LXA,1 

LXA,2 

0089 

ICSP 

11 

LAST 1302 

11,2431 

02150 1 


PBCDY 

0090 

IBP 

12 

LAST 1305 

11,2432 

02150 1 


PBCDY 

0091 




11,2433 

77775 1 

VLOAD 


0092 

KP 

10 

LAST 1289 

11,2434 

11458 0 


2EHCVEC 

0093 

BP 

2 

LAST 87 

11,2435 

26202 0 

STCVL 

PV 

0094 

■gp 

32 

last 1209 

11,2438 

02152 0 


ALFHAV 

0095 




11,2437 

53257 1 

VSL4 

VAD 

0098 




11,2440 

57605 0 


0 -7,2 

B09T 

KP 

21 

LAST 1302 

11,2441 

01535 0 


RCV 

0098 


2 

LAST 87 

11,2442 

02160 1 

STORE 

BBTAV 

0099 




11,2443 

65014 1 

BCP 

)(<>«, 2 

0100 

KP 

17 

LAST 1299 

11,2444 

01756 1 


DMOPLAO 

0101 




11,2445 

22452 1 


♦5 

0102 

IBP 

19 

LAST 1304 

11,2446 

01500 0 


DIPEOCNT 

0103 

tey 

7 

LAST 87 

11,2447 

12217 0 

STORE 

VECT«B,2 

0104 




11,2450 

77724 0 

XCHX,2 


0105 

Wf 

20 

LAST 1305 

11,2451 

01500 0 


OIPEOCNT 

0106 




11,2452 

53575 0 

VLOW 

IHIT 

OlOT 

fBP 

33 

LAST 1305 

11,2453 

02152 0 


ALPHAV 

0108 

KF 

34 

LAST 1305 

11,2454 

16152 0 

STOOL 

ALPHAV 

0109 




11,2455 

00045 0 


36D 

0110 

OB' 

4 

LAST 1207 

11,2456 

02310 1 

STORE 

ALPHAM 

0111 




11,2457 

77624 1 

CALL 


0112 


1 


11,2460 

2256 2 0 


QAMCCMP 

0113 




11,2461 

66175 1 

VLOAD 

SXA.l 

0114 

tey 

3 

LAST 1305 

11,2462 

02160 1 


BETAV 

0115 

tey 

33 

LAST 1288 

11,2463 

00051 0 


S2 

0116 

msy 

35 

LAST 1305 

11,2464 

16152 0 

STOOL 

ALPHAV 

0117 

tey 

2 

LAST 87 

11,2465 

02210 0 


BETAM 

0118 

tey 

5 

LAST 1305 

11,2466 

02310 1 

STORE 

ALPHAM 

0119 




11,2467 

71214 0 

BOP 

DLOID 

0120 

tey 

3 

LAST 1292 

11,2470 

00342 1 


MIDFLAG 

0121 

tey 

1 


11,2471 

22725 1 


CKATE 

0122 

tey 

24 

LAST 1304 

11,2472 

01517 0 


TBT 

0123 




11,2473 

77624 1 

CALL 


0124 

tey 

2 

LAST 704 

11,2474 

54110 0 


LSPOS 

0125 




11,2475 

72174 0 

AXT,2 

LXA,1 

0126 




11,2476 

00002 0 


2 

0127 

HP 

34 

LAST 1305 

11,2477 

00051 0 


32 

0128 




11,2500 

77614 1 

BOP 


0129 

HP 

22 

LAST 1303 

11,2501 

00343 0 


MOOJPLAG 

0130 




11,2502 

22505 1 


♦3 

0131 




11,2503 

77078 0 

VCCMP 

AXT,2 

0132 




11,2504 

00000 1 


0 

0133 

aep 

4 

LAST 1305 

11,2505 

02160 1 

STORE 

bbtav 

0134 

BBP 

3 

[AST 87 

11,2506 

26263 1 

STCVL 

RPCV 
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USBBkS PAOB NO. 4 BO S3 



20’35 OCT. 28,1988 SATRAP .OOT PAGE 1306 
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0135 




11,2507 

00003 1 



2P 

0136 

BBP 

2 

lAST 87 

11,2510 

02300 0 


STORE 

HPSY 

013T 




11,2511 

45335 0 


SLQAD 

DSU 

0138 

REP 

14 

lASr 1293 

11,2512 

01012 0 



HCDRBQ 

0139 

REP 

1 


11,2513 

23721 1 



0CT27 

0140 




11,2514 

43030 0 


EMIZ 

BOP 

0141 




11,2515 

22520 0 



♦3 

0142 

BBP 

10 

LAST 1305 

11,2516 

01756 1 



DIMoPLAQ 

0143 

BBP 

1 


11,2517 

22534 0 



OETHPSV 

0144 




11,2520 

74375 0 


VLCMD 

VX3C 

0145 

BBP 

30 

LAST 1305 

11,2521 

02152 0 



ALIHAV 

0146 

REP 

0 

last 1305 

11,2522 

02310 1 



ALmAM 

0147 




11,2523 

52257 0 


VSR* 

VSU 

0148 




11,2524 

57175 0 



1.2 

0149 

REP 

5 

LAST 1305 

11,2525 

02160 1 



BBWV 

0150 




11,2526 

77724 0 


XQ«,2 

0151 

REP 

21 

LAST 1305 

11,2527 

01500 0 



DIFEOCNT 

0152 

REP 

8 

last 1305 

11,2530 

12225 1 


STORE 

VECTAB +8,2 

0154 

REP 

5 

LAST 614 

11,2531 

02272 1 


STORE 

KMV 

0155 




11,2532 

77724 0 


)(CH)C,2 


0150 

REP 

22 

LAST 1306 

11,2533 

01500 0 



dipeqcnt 

0157 




11,2534 

62175 0 

GBIHPSY 

VLQAD 

INCR,i 

0158 

REP 

4 

LAST 1305 

11,2535 

02283 1 



gpof 

0159 




11,2536 

00004 0 



4 

0160 




11,2537 

43014 0 


CLEAR 

BOP 

0161 

REP 

3 

last 1290 

11,2540 

04260 1 



RPQPHO 

0162 

HEP 

23 

LAST 1305 

11,2541 

0034 3 0 



MOtNFLAO 

0163 




11,2542 

22547 1 



♦5 

0164 




11,2543 

53281 1 


VSR 

VAD 

0165 




11,2544 

20612 0 



90 

0166 

REP 

3 

LAST 1306 

11,2545 

02300 0 



HPSY 

0167 

HEP 

4 

LAST 1306 

11,2546 

02300 0 


STORE 

RPSY 

0168 




11,2547 

77824 1 


CALL 


0169 

HEP 

2 

LAST 1305 

11,2550 

22562 0 



GAMCCWP 

0170 




11,2551 

62174 1 


AXT,2 

INCR.l 

0171 




11,25 5 2 

00004 0 



4 

0172 




11,255 3 

00004 0 



4 

0173 




11,2554 

77775 1 


VLOAD 


0174 

REP 

5 

LAST 1306 

11,2555 

02300 0 



RPSV^ 

0175 

REP 

6 

LAST 1306 

11,2558 

36160 0 


SICALL BBXAV 

0176 

REP 

3 

last 1308 

11,2557 

22562 0 



GAMC04P 

0177 




11,25 6 0 

77650 1 


GOTO 


0178 

REP 

2 

LAST 1305 

11,2561 

22725 1 



OBLATE 

0179 




11,25 8 2 

74575 0 

GAMCCWP 

VIXWD 

VSRl 

0180 

REP 

T 

LAST 1306 

11,2563 

02160 1 



BBWV 

0181 




11,2564 

40236 1 


VSO 

SBTPD 

0182 




11,25 85 

00001 0 



0 

0183 




11,2566 

61501 1 


NORM 

ROUP® 

0184 




11,2567 

00040 0 



310 

0185 




11,2570 

60325 0 


POOL 

NORM 


U9!Ba8 PAOe NO. 5 Bo S3 
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OBBIIAL imEOBATIO* 



eios 

HBP 

1 

L.AST 1308 

11.2511 

02310 

1 

tioi 




11.2512 

00041 

1 

0100 




11.2513 

63342 

1 

0109 

RBP 

0 

LAST 1300 

11.2514 

02160 

1 

0190 




11.2515 

11656 

1 

0191 

BEP 

9 

LAST 1301 

11.2510 

16160 

1 

0192 




11.2511 

00045 

0 

0193 

Bep 

3 

LAST 1305 

11.2600 

02210 

& 

0194 




11.2801 

55301 

0 

0195 




11.2802 

00042 

1 

0190 




11.2803 

41562 

0 

0191 




11.2804 

11143 

1 

0190 

BEP 

1 


11.2805 

21130 

0 

0199 

BEP 

41 

LAST 1304 

11.2808 

00051 

0 

0200 




11,2801 

51124 

1 

0201 

BEP 

40 

LAST 1301 

11,2810 

00050 

1 

0202 




11.2811 

00040 

0 

0203 




11.2812 

11264 

1 

0204 




11.2813 

00041 

1 

0205 




11.2814 

00003 

1 

0200 




11,2815 

65051 

0 

0201 




11.2818 

51111 

1 

0200 

BEP 

49 

LAST 1301 

11,2811 

00050 

1 

0209 




11.2820 

14406 

0 

0210 




11.2821 

50315 

0 

0211 

BEP 

31 

LAST 1306 

11.2822 

02152 

0 

0212 

BBP 

10 

LAST 1301 

11.2823 

02160 

1 

0213 




11,2824 

44312 

1 

0214 




11,2825 

51206 

1 

0215 




11,2828 

00005 

1 

02155 




11,2821 

11152 

1 

0210 




11.2838 

43206 

1 

0211 

BBP 

1 


11.2831 

23101 

0 

0210 




11.2832 

15406 

1 

0219 




11,2833 

41415 

1 

0220 




11,2634 

00013 

0 

0221 




11,2835 

43352 

\ 

0222 

BEP 

2 

LAST 1301 

11,2838 

23101 

0 

0223 




11.2831 

43325 

1 

0224 




11.2840 

00013 

0 

0225 

BHP 

1 


11,2841 

11454 

1 

0238 




11,2642 

12415 

1 

0221 




11,2843 

00011 

1 

0220 




11.2844 

56215 

1 

0229 

BEP 

1- 


11,2845 

2361 3 

1 

0230 




11,2848 

00011 

1 

0231 




11,2841 

14215 

1 

0232 




11.2850 

00001 

0 

0233 

BBP 

11 

LAST 1301 

11,2651 

02160 

1 

0234 




11.2852 

64515 

1 



US8IUS PACE NO. 0 Bo S3 



ALPHAM 

NOEWALIZE (LESS CNB) LfiraiH CP ALPHA 


320 

SAVING NORM S(ALB PA(?T0B IN XI 

SKI 

PDVL 



BE»V 

C(PDLt2) = almost NOIWD AUHA 

IWIT 



stqdl 

BBTAV 


STORE 

360 

BETAM 


NOE94 

BECV 

POEM normalized OOOTiaiT ALPHAM/BBTAM 

SRlH 

330 

puai 

C(PDL-.2) = ALMOST NORMALIZHJ IWO. 

DL01D4 

STORE 

ASCALE,! 

Si 


XCHX,2 XAD,2 


XSU.2 

Si 

320 

DLCAO 


SR4 

330 

20 

XCH)(,2 


puai 

0 -1,2 

Si 

SBlR 

lHO/4 TO 40 

PIVL 

DOT 


a,iH 

ALPHAV 

BETAV 

BDSU 

(HHO/ 4 ) - 2 (ALPHAV/ 2 .BeTAV/ 2 ) 

PU91 

DMPB 

TO PDL+6 

a,i 

EUW 

4 

DAO 


PUSH 

DOJABTEB 

SCBT 


CMPB 

puai 


SLl 

lOO 

DAO 


POOL 

OQUARlEB 

DAO 

(l/4)+2((0*l)/4> TO PDtl4D 

DMPB 

lOO 

HALPDP 

SLi 


DAO 

80 

DOY 


DMPB 

THREE /B 

140 

VXSC 



6 

BETAV 


PCVI, 

VSB3 

(G/2)(C(P0+4))B/2 to PO. 16D 




HI 
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0235 
023S 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 
0248 
024T 

0248 

0249 

0250 

0251 
02513 
02518 

0252 

0253 

0254 

0255 

0256 
025T 
025805 

02581 
025815 

02582 REP 
025825 

02583 

025835 REP 

02584 REP 
02S84S REP 

02585 

025855 cep 

02586 REP 
025805 
6258T RH' 
6258T5 
02588 REP 
0K88S REP 


38 last 1307 


6 last 1302 


50 LAST 1307 
35 last 1305 


REP 


51 LAST 1308 

3 last 1305 

4 LAST 1308 


2 LAST 87 


11 LAST 1304 
10 LAST 1304 
25 LAST 1305 

28 IAST 1308 

3 LAST 1304 

6 LAST 1300 

4 LAST 1308 
4 LAST 1299 


11,2853 

02152 0 


AUWV 

11,2654 

41455 0 

VAO 

puai 

11,2655 

41345 0 

OLOVD 

DMP 

11,2658 

00001 0 


0 

11,2657 

00015 0 


12 D 

11,2860 

61501 1 

NCCM 

ROUND 

11,2661 

00037 0 


30D 

11,2662 

40665 0 

BDDV 

CMP* 

11,2663 

00003 1 


2 

11,2664 

50041 1 


MJEARTH,2 

11,2665 

74276 1 

DCCHP 

VX3C 

11,2666 

57124 1 

ifCHx,; 

S XAD,2 

11,2687 

00050 1 


Si 

11,2670 

00051 0 


S2 

11,2671 

55064 0 

X3U,2 

XSU,2 

11,2672 

00036 1 


300 

11,2673 

00037 0 


3lD 

11,2674 

77600 1 

BOV 


11,2675 

22676 0 


♦1 

11,2676 

65057 0 

VSB4 

XCHy.2 

11,2677 

57177 1 


0 -1,2 

11,2700 

00050 1 


31 

11,2701 

77655 1 

VAO 


11,2702 

02202 0 


PV 

11,2703 

02202 0 

STORE 

PV 

11,2704 

43400 1 

BOV 

RVO 

11,2705 

22706 0 


♦1 

11,2706 

54345 1 GCBAOUE 

DLCAD 

sa 

11,2707 

02212 1 


H 

11,2710 

20612 0 


9D 

11,2711 

44206 0 

PUSH 

BDSU 

11,2712 

01551 1 


IC 

11,2713 

16312 0 

STCDL 

TAU. 

11,2714 

01517 0 


TBT 

11,2715 

45425 0 

DSU 

SIADR 

11,2716 

42260 0 

STCAIX, TBT 

11,2717 

22310 0 


KEPPHEP 

11,2720 

77624 1 

CALL 


11,2721 

23344 0 


rectify 

11,2722 

77614 1 

SElGO 


11,2723 

04020 1 


RPQPIAG 

11,2724 

27 234 1 


TEsnXXJP 
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11,2725 

T1354 

0 

oblate 
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DUMD 

0286 

REP 

13 

lASr 1305 

11,2728 

02150 

i 



PflCDY 

0267 

REP 

8 

LAST 1307 

11,2727 

02310 

1 



ALffiAM 

0268 




11,2730 

44601 

0 


ffiTPO 

DSU* 

0269 




11,2731 

00001 

0 



0 

0270 

HEP 

1 


11,2732 

5000T 

0 



WB.2 

0271 




11,2733 

43044 

0 


BPL 

BOP 

0272 

REP 

1 


11,2734 

23135 

1 



NBRANCM 

0273 

REP 

24 

LAST 1306 

11,2735 

00343 

0 



MOCNPLAO 

0274 

HEP 

1 


11,2738 

23144 

1 



COSPHIE 

0275 




11,2737 

65375 

0 


VLOAD 

POOL 

0278 

REP 

39 

LAST 1308 

11,2740 

02152 

0 



ALPHAV 

0277 

REP 

27 

LAST 1308 

11,2741 

01517 

0 



TET 

0276 




11,2742 

45125 

0 


poot. 
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REP 

1 


11,2743 

23671 
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3/5 
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REP 

4 

LAST 1206 

11,2744 

55 366 

1 



R-TO-RP 

0284 

REP 

1 


11,2745 
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1 


STORE 

UHPV 

0285 




11,2748 

47375 

0 


VLOVD 

VXV 

0286 

REP 

3 

LAST 1215 

11,2747 

02012 

0 



504LM 

0287 
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3 

LAST 1287 

11,2750 

11450 

0 



ZUNIT 
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11,2751 

61255 

1 


VAD 

VXM 

0289 

REP 

4 

LAST 1309 

11,275 2 

11450 

0 



awiT 

0290 

l®P 

8 

LAST 1218 

11,2753 

00025 

0 



MATRIX 

0291 




11,2754 

77656 

1 


UNIT 


0292 

REP 

1 


11,2755 

00025 

0 

coriEiw 

STORE 

UZ 

0293 




11,2756 

57345 

1 


DLOAD 

DMPR 

0294 

REP 

1 


11,2757 

00023 

0 



COSPHI/2 

0295 

REP 

1 


11,2760 

23703 

1 



3/32 

0296 




11,2761 

63525 

0 


POOL 

DSO 

0297 

REF 

2 

LAST 1309 

11,2762 

00023 

0 



COSPHI/2 

0298 




11,2763 

45275 

0 


DMPH 

DSU 

0299 

REP 

1 


11,2764 

23705 

1 



15/16 

0300 

REP 

1 


11,2765 

23677 

0 



3/64 

0301 




11,2766 

57206 

1 


puai 

DMPR 

0302 

REP 

3 

LAST 1309 

11,2767 

00023 

0 



tX)SPHI/2 

0303 




11,2770 

76405 

1 


DMP 

S,lR 

0304 

REP 

1 


11,2771 

23711 

1 
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0305 




11,2772 

57325 

1 


POOL 

DMPR 

0306 




11,2773 
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0 



0 

0307 

REF 

1 


11,2774 

23717 

1 
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0308 




11,2775 

41421 

0 


BDSU 

PUSH 

0309 




11,2776 

57 275 

0 


DMPR 

DMPR 

0310 

REP 

4 

LAST 1309 

11,2777 

00023 

0 



COSPHI/2 

0311 

REP 

1 
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23713 

0 
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11,3001 

57325 

1 


pool. 
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2 
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REP 

1 
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11,3004 
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BDSU 
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11,3005 
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B31T 

FEP 

1 


11,3006 

S003S 1 


J4RE0/J3,2 

•318 




11,3007 

432T1 1 

DOV 

DAO 

•319 

REP 

9 

LAST- 1309 

11,3010 

02310 1 


ALPHAM 

•320 




11,3011* 

00005 1 


4 

•321 




11,3012 

56273 1 

DMPR4 

DOV 

•322 

HEP 

1 


11,3013 

50031 0 


2J3RB/J2,2 

•323 

REP 

10 

last 1310 

11,3014 

02310 1 


ALPHAM 

•324 




11,3015 

74215 1 

mo 

VXSC 

•32S 




11,3016 

00003 1 


2 

•328 

HEP 

40 

last 1309 

11,3017 

02152 0 


ALPHAV 

032T 

HEP 

1 


11,3020 

14033 1 

STOOL 

TVEC 
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11,3021 

70403 1 

DMP* 

SBl 

0329 

REP 

2 

LAST 1310 

11,3022 

50035 1 
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11,3023 
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DOV 

DAD 

0331 

REP 

11 

LAST 1310 

11,3024 

02310 1 


ALPHAM 
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11,3025 

50473 1 

OMPR* 

SR3 

0333 

REP 

2 

LAST 1310 

11,3026 

50031 0 


2J3HB/J2,2 

•334 




11,3027 

43271 1 

DOV 

DAD 

0335 

REP 

12 

LAST 1310 

11,3030 

02310 1 


ALPHAM 

0338 




11,3031 

76561 1 

VX3C 

VSbl 

•33T 

HEP 

2 

last 1309 

11,3032 

00025 0 


UZ 

•338 




11,3033 

77645 0 

BVSU 


0339 

HEP 

2 

last 1310 

11,3034 

00033 1 


TVBC 

•340 

REP 

3 

last 1310 

11,3035 

14033 1 

STODL 

TVEC 

0341 

REP 

13 

LAST 1310 

11,3036 

02310 1 


ALPHAM 

0342 




11,3037 

6350 1 0 

NOR^ 

DSO 

0343 

HEP 

86 

LAST 1302 

11,3040 

00047 1 


XI 

0344 




11,3041 

60316 0 

DSO 

NOR1 

0345 

REP 

52 

last 1308 

11,3042 

00051 0 


Si 

0348 




11,3043 

54606 0 

puai 

BDDV* 

034T 

REP 

1 


11,3044 

50025 0 


J2BE0SQ,2 

0348 




11,3045 

77781 1 

VXSC 


•349 

REP 

4 

LAST 1310 

11,3046 

00033 1 


TVBC 

0350 

REP 

S 

LAST 1310 

11,3047 

00033 1 

STORE 

TVBC 

0351 




11,3050 

56070 0 

XAD.l 

XAD.l 

•352 

REP 

87 

LAST 1310 

11,3051 

00046 0 


XI 

0353 

REP 

88 

last 1310 

11,3052 

00046 0 


XI 

•354 




11,3053 

43070 1 

XAD.l 

BOP 

0355 

REP 

S3 

LAST 1310 

11,3054 

00050 1 


Si 

0358 

REP 

25 

LAST 1309 

11,3055 

00343 0 


MOCNELAO 

03ST 

FEP 

1 


11,3056 

23125 0 


NBRANCHi 

0358 




11,3057 
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MXWD 

DSO 

0359 

REP 

2 

LAST 1309 

11,3060 

00017 1 


URPV 

0360 




11,3061 

63525 0 

POOL 

DSO 

0381 

REP 

3 

last 1310 

11,3062 

00021 1 


URPV tz 

0362 




11,3063 
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2D 
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DSU 


20’35 OCT. 28,1988 SATRAP .OOT PACE 1310 
USRRaS PAOB NO. 0 Eo S 3 


<<<PS/258)B 2 /B+P 4 / 32 ) /RtP3/8)ALPHAV 

4 3 




-3 


NOHMED R TO oD 



X B-2 to zD 
Z Z 

Y +X B-2 to 2D 



ASSBOLK iSnslON 249 OP AOC PROQBAM COLOSSUS BY NASA 2021111-041 20*35 OCT. 28,1968 SATHAP .OOT PAOB 1311 


QBPIVIL WIBOItATIOH 


USBIbS PAOB NO. 10 Ko S3 


0365 




11,3086 
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1 



2D 
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11,3081 

41525 

0 


PDDL 

poai 

036T 

BBP 

s 

LAST 1309 

11,3070 

00023 

0 



COSPHI/2 

03SS 




11,3071 

65361 

0 


VXSC 

PDDL 

0389 

BSP 

a 

lA*r 1310 

11,3072 

00025 

0 



UZ 

0370 




11,3073 

45316 

1 


DSO 

DSU 

03T1 

BEP 

a 

LAST 1309 

11.3074 

23871 

0 



3^5 

03T2 




11,3075 

52405 

1 


DMP 

SL3 

03T3 

BHP 

a 

lAST 128T 

11,3076 

27756 

0 



5/8 

0374 




11,3077 

52361 

1 


vxsc 

VSU 

0375 

B0P 

41 

LAST 1310 

11,3100 

02152 

0 



ALPHAV 

0370 




11,3101 

72581 

0 


vxsc 

VSL2 

0377 




11,3102 

77725 

1 


PDDL 


0370 

BBP 

4 

LAST 1310 

11,3103 

00017 

1 



UBPV 

0379 




11,3104 

63205 

0 


CMP 

fOYL 

0300 

IBP 

S 

LAST 1311 

11,3105 

00021 

1 



UBPV +2 

0381 

BBP 

42 

LAST 1311 

11,3108 

02152 

0 



ALPHAV 

0302 




11,3107 

74235 

0 


VXY 

VXSC 

0383 

EBP 

4 

LAST 1311 

11,3110 

00025 

0 



UZ 

0384 




11,3111 

53332 

0 


VSL3 

VAD 

0385 




11,3112 

77725 

1 


PDOL 


0386 




11,3113 

41301 

0 


N0R4 

DMP 

03861 

BBP 

36 

LAST 1258 

11,3114 

00050 

1 



X2 

0387 




11,3115 

00001 

0 



OD 

03871 




11,3116 

74265 

0 


BDCV 

VXSC 

0388 

BBP 

1 


11,3117 

27754 

1 



3J22B2'*J 

0389 




11,3120 

5 3257 

1 


VSL* 

VAD 

0390 




11,3121 

57605 

0 



0 -7,2 

0391 

SSP 

6 

LAST 1310 

11,3122 

00033 

1 



TVEC 

03911 




11,3123 

77754 

1 


IJ(A,2 


03912 

BBP 

14 

LAST 1309 

11,3124 

02150 

1 



PBODY 

03913 




11,3125 

77600 

1 

nbranWi 

BCV 


03916 




11,3126 

23127 

i 



♦1 

0392 




11,3127 

53257 

1 


VSL* 

VAD 

0393 




11,3130 

20153 

1 



0 -22D,1 

0394 

BBP 

5 

LAST 1308 

11,3131 

02202 

0 



PV 

0395 

BEP 

6 

LAST 1311 

11,3132 

02202 

0 


STORE 

PV 

03953 




11,3133 

77600 

1 


BOY 


03956 

BBP 

1 


11,3134 

22706 

0 



GCBAOE 

0396 




11,3135 

72135 

0 

nbbanch 

a.(»D 

LXA.l 

0397 

BBP 

23 

LAST 1308 

11,3136 

01501 

1 



DIFEOCNT 

0398 

BBP 6ST 

LAST 1299 

11,3137 

00154 

1 



MPAC 

0399 




11,3140 

73205 

1 


DMP 

CGOTO 

0400 

BEP 

1 


11,3141 

27760 

0 



-1/12 

0401 

BBP 858 

LAST 1311 

11,3142 

00155 

0 



MPAC 

0402 

US' 

1 


11,3143 

23152 

0 



DIFEOTAB 

0403 




11,3144 

77745 

1 

COSPHIE 

DLOAD 


0404 

BBP 

43 

LAST 1311 

11,3145 

02156 

1 



AI.PHAV +4 

0405 

BBP 

6 

LAST 1311 

11,3148 

24023 

0 


STOYL 

COSPHI/2 

0406 

BEP 

5 

LAST 1309 

11,3147 

11450 

0 



ZUNIT 
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0408 

BSP 

1 


0409 

RBP 

1 


0410 

BSP 

1 


0411 

0412 

BCP 

1 


0413 

BEP 

4 

last 1305 

0414 

BEP 

1 


0415 

0418 

BBP 

22 

last 1305 

04162 

REP 

IT 

last 1302 

04163 

041S4 

REP 

10 

last 1304 

04168 

0411 

BEP 

2 

LAST 1312 

0418 

REP 

26 

last 1310 

0419 

REP 

1 


0420 

REP 

5 

last 1308 

0421 

0422 

REP 

1 


0423 

REP 

28 

last 1309 

0424 

REP 

3 

last 1305 

0425 

04253 

REP 

5 

last 1306 

04256 

0426 

REP 

15 

last 1311 

042T 

0428 

REP 

23 

last 1312 

0429 

REP 

1 


0430 

0434 

REP 

1 


04345 

04346 

REP 

8 

last 1289 

04347 

0435 

REP 

1 


04355 

IffiP 

2 

LAST 32 

0436 

04365 

REP 

2 

LAST 1312 

0437 
04375 

0438 
04385 

REP 

3 

LAST 1312 

0439 

04395 

REP 

1 


0440 

REP 

3 

last 1312 

0441 

0442 

REP 

8 

last 1289 

0443 

04431 

REP 

4 

LAST 1312 

04432 

REP 

4 

lAST 1312 


11,3150 

77650 1 

OOTO 


11.3151 

22755 0 


OtMIEWl 

11,3152 

23371 0 

DIPBaiAB CADR 

DIPBO^O 

11,3153 

23375 1 

CADR 

DIFEOfl 

11,3154 

23406 1 

CADR 

Direo+2 

11,3155 

77214 0 

Tiiesrep BOP 

VIXWD 

11,3156 

00342 1 


MimAD 

11,3157 

23206 1 


H0CTBST 

11,3160 

01535 0 


HCV 

11,3161 

41241 0 

DOT 

DMP 

11,3162 

01543 1 


VCV 

11,3163 

02314 0 


DT/2 

11,3164 

77640 0 

Bm 


11,3165 

23206 1 


HEClEST 

11,3166 

43014 0 

BOX 

BCP 

11,3167 

00303 1 


MOCNELAD 

11,3170 

23263 1 


UJNSPH 

11,3171 

04340 1 


RPQFIAO 

11,3172 

23260 1 


EARSPH 

11,3173 

45145 0 

DLQAD 

CAll, 

11,3174 

01517 0 


1BT 

11,3175 

54110 0 


LSPOS 

11,3178 

02263 1 

STORE 

RPOY 

11,3177 

77754 1 

UCA,2 


11,3200 

02150 1 


PBOJy 

11,3201 

51445 0 

INUJNCHc Bvsu 

AByAL 

11,3202 

01535 0 


KV 

11,3203 

50025 0 

DSU 

eM4 

11,3204 

27764 1 


HSmERE 

11,3205 

23300 0 


dosritch 

11,3206 

51575 1 

RBCtEST VLCttD 

ABvAL 

11,3207 

01521 0 


TDELWV 

11,3210 

77600 1 

boy 


11,3211 

23234 0 


CALLRECT 

11,3212 

51025 1 

DSU 

BPL 

11,3213 

23707 0 


3/4 

11,3214 

23234 0 


OILLRECT 

11,3215 

53615 0 

DAD 

SL4 

11,3216 

23707 0 


3/4 

11,3217 

57605 0 


0 -7,2 

11,3220 

45271 1 

DDv 

DSU 

11,3221 

00013 0 


lOD 

11,3222 

2776 2 1 


recratio 

11,3223 

77244 0 

bpl 

VLOAD 

11,3224 

23234 0 


CA[1,RECT 

11,3225 

01527 0 


TNUV 

11,3226 

45246 0 

AflvAL 

DSU 

11,3227 

23707 0 


3/4 

11,3230 

77600 1 
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ItmSATB 
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8 

LAST 
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•448 

REP 

1 



11,3240 

25120 

0 
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Tf 
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RBP 

8 
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11,3241 

01521 
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TDELWV 

0450 

HEP 

2 

LAST 

76 

11,3242 

01112 

1 

STORE 

YV 
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11,3243 
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CLEAR 
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HEP 
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11,3244 

00261 
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JSWIICH 
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11,3245 

663T5 

0 
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SSP 
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3 
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•455 

HEP 
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11,3247 

01501 
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•45T 

REP 

44 

LAST 
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11,3251 

16152 

0 
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HEP 

3 
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1210 

11,3252 
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DPZEBO 
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3 

LAST 
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11,3253 

02212 
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STORE 

H 
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11,3254 

52014 

0 
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2 
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11,3255 
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GOTO 
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11,3263 
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0 
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lOD 
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11,3285 

50025 

0 
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BW 

•4848 

HEP 

2 
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HSPHEHE 
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HEP 

3 

LAST 
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11,3287 

23206 
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RECTEST 

04848 





11,3270 

T1214 

0 

BCP 

DLCWD 
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HEP 

6 

LAST 

1312 

11,3271 

04340 
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RPOFIAG 

0485 

REP 

2 

LAST 

1312 
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23300 
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DOaidTCH 

04851 
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29 

LAST 
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11,3273 

01317 
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TET 
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11,3274 

77624 
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0488 

REP 

2 

LAST 

887 

11,3275 

54115 
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LIWPOS 

048T 





11,3278 

T7676 

0 
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0488 
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LAST 
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LAST 
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23236 

1 


INTGRATE 

0473 





11,3304 

45020 

1 

ORIGCHNG STO 

CAU, 

0474 

HEP 

3 

LAST 

87 

11,3305 

02270 

0 


ORIGEX 

0475 

fbf 

8 

LAST 

1313 

11,3306 

23344 

0 


rectify 

0476 





11,3307 

53775 

1 

VLOW 

VSL4 

0477 

BBP 

24 

LAST 

1312 

11,3310 

01535 

0 


RCv 

0478 





11,3311 

57576 

1 


0,2 

0478 





11,3312 

53651 

0 

VSU 

VSlAc 

0480 

REP 

8 

LAST 

1313 

11,3313 

02263 

1 


HPtV 


UffiEWS PAQB NO. 12 


BO 83 


S»Kr H at ZgRO. GOGS 0CDGI,T/2)DGLT. 



Ill 


assemble BEV^ISION 249 OP AGO PflOGWVM C0UJ3SU3 BY NASA 2021111-041 


L 

orbital 

DnEOaATICN 





0481 




11,3314 

5T574 0 


2,2 

0482 

BEP 

13 

cast 1300 

11,3315 

01503 0 

STORE 

RHECr 

0483 

BEP 

25 

last 1313 

11,3316 

15535 0 

STOOL 

bCv 

0484 

BEP 

30 

last 1313 

11,331T 

0151T 0 


ibt 

0485 




11,3320 

TT624 1 

CALL 


0486 

BEP 

1 


11,3321 

54120 0 


UEva, 

0487 




11,3322 

57414 1 

BOP 

VCCMP 

0486 

BEP 

2T 

LAST 1312 

11,3323 

00343 0 


MOQ4PLAO 

0489 




11,3324 

23325 1 


♦1 

0490 




11,3325 

53715 1 

BVL 

V9L* 

0491 

BEP 

18 

last 1312 

11,3326 

01543 1 


vcv 

0492 




11,332T 

57576 1 


0,2 

0493 




11,3330 

77651 0 

V9U 


0494 




11,3331 

77657 0 

vau* 


0495 




11,3332 

57574 0 


0 *2,2 

0498 

BEP 

9 

last 1300 

11,3333 

01511 0 

STORE 

vrect 

0497 

BEP 

19 

last 1314 

11,3334 

01543 1 

STORE 

VCv 

0498 




11,3335 

67154 0 

LXA,2 

SCA,2 

0499 

BEP 

4 

LAST 1313 

11,3336 

02270 0 


ORIGEX 

0500 

REP 

26 

last 1294 

11,3337 

00052 0 


QPRET 

0501 




11,3340 

52014 0 

BCN 

GOTO 

0502 

BEP 

28 

LAST 1314 

11,3341 

00303 1 


MOCNPIAG 

0503 

BEP 

2 

last 1286 

11,3342 

26666 0 


CIJWOCN 

0504 

BEP 

3 

LAST 1286 

11,3343 

26673 1 


SflHOCN 


20’35 OCT. 28,1909 3ATBAP .007 PACE 1314 
US8R«S PACE NO. 13 BO S3 
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20 ’35 OCT. 28,1088 SATHAP .OOT PAGE 1315 

L orbital DOBCtlATION USBRsS PAOB NO. 14 EO S3 

P0505 WB BECtIPY Sl«K)uriNB IS CALLED BY THE INTBfflATICN PROWAM AND OCCASIONALLY BY THE MEA3URa«NT INCQRPOBATICW 

ROSOT ROUTINES TO ESTABLiai A NB« CONIC. 


0508 





11,3344 

77354 

0 

RECTIPY UA,2 

VLQAO 

0509 

REP 

16 

LAST 

1312 

11,3345 

02150 

1 


PBODY 

0510 

REP 

10 

lAST 

1313 

11,3340 

01521 

0 


TDELTAV 

0511 





11,3347 

53257 

1 

vaA 

VAO 

0512 





11,3350 

57605 

0 


0 -7,2 

0513 

REP 

26 

LAST 

1314 

11,3351 

01535 

0 


RCV 

0514 

REP 

14 

LAST 

1314 

11,3352 

01503 

0 

STORE 

HRECT 

0515 

REP 

27 

lAST 

1315 

11,3353 

25535 

0 

STCVL 

RCV 

0516 

REP 

10 

lAST 

1313 

11,3354 

01527 

0 


1NUV 

0517 





11,3355 

53257 

1 

VSAt 

VAD 

0518 





11,3350 

57602 

1 


0 -4,2 

0519 

REP 

20 

LAST 

1314 

11.3357 

01543 

1 


VCv 

0520 

REP 

10 

lAST 

1314 

11,3300 

01511 

0 

minirect store 

VRECT 

0521 

REP 

21 

LAST 

1315 

11,3^1 

25543 

1 

SKVL 

VCV 

0522 

REP 

11 

lAST 

1305 

11,3302 

11456 

0 


ffHOl/EC 

0523 

REP 

11 

LAST 

1315 

11,3303 

01521 

0 

STORE 

TDELTAV 

0524 

REP 

11 

LAST 

1315 

11,3304 

15527 

0 

STOOL 

TNUV 

0525 

REP 

12 

LAST 

1315 

11,3365 

11456 

0 


ZBRCVEC 

0526 

REP 

12 

LAST 

1308 

11,3386 

01551 

1 

STORE 

TC 

6527 

REP 

3 

LAST 

1303 

11,3%7 

01553 

0 

STORE 

XKEP 

0528 





11.3370 

77616 

0 

RYO 




I 
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20’35 OCT. 28,1968 SATRAP .OOT PACE 1316 
USU8 PACE NO. 15 BO S3 


P0529 

HE THREE DIPEO ROUTINES - DIFEQ+0, DIPEO+12. AND DIFEO 4.24 - ABB 

R0531 

HBOIWINO, MIDDLE, 

and B4D OP 

THE TI^«S^EP, RESPECTIVELY. THE UPI 

0533 




11,3371 

64575 1 

DIFECfO VLCMO 

VSR3 

0534 

RB’ 

T 

last 1311 

11,3372 

02202 0 


fV 

0535 

REP 

2 

LAST 87 

11,3373 

36166 0 

SlCALL IHIV 

0530 

HEP 

1 


11,3374 

23551 1 


DIPEOCCM 

05 3T 




11,3375 

74575 0 

DIPEO+i VLCMD 

VSRl 

0538 

BBP 

8 

last 1316 

11,3376 

02202 0 


PV 

0539 




11,3377 

53206 0 

puai 

VAD 

0540 

REP 

3 

last 1316 

11,3400 

02168 1 


PHIV 

0541 

REP 

2 

LAST 87 

11,3401 

26174 1 

ST(VL 

PSIV 

0542 




11,3402 

53362 0 

vail 

VAD 

0543 

REP 

4 

last 1316 

11,3403 

02166 1 


PHIV 

0544 

REP 

5 

last 1316 

11,3404 

36166 0 

SlCALL PHIV 

0545 

REP 

2 

last 1316 

11,3405 

23551 1 


DIPEOCCM 

0540 




11,3406 

57345 1 

DIPE0*2 dlqad 

DMPR 

054T 

REP 

4 

last 1313 

11,3407 

02212 1 


H 

0540 

REP 

2 

last 1302 

11,3410 

23717 1 


DP 2/3 

0549 




11,3411 

74206 0 

PUSf 

VXSC 

0550 

REP 

6 

last 1316 

11,3412 

02166 1 


PHIV 

0551 




11,3413 

53372 1 

VSLi 

VAD 

0552 

REP 

2 

last 1313 

11,3414 

01120 0 


zv 

0553 




11,3415 

53361 0 

vxsc 

VAD 

0554 

RS' 

S 

last 1316 

11,3416 

02212 1 


H 

0555 

HEP 

4 

last 1313 

11,3417 

01112 1 


YV 

0550 

RS' 

S 

LAST 1316 

11,3420 

25112 1 

STOVL 

YV 

0S5T 

HEP 

9 

last 1316 

11,3421 

02202 0 


PV 

0558 




11,3422 

53322 1 

VSR3 

VAD 

0559 

REP 

3 

LAST 1316 . 

11,3423 

02174 1 


PSIV 

0500 




11,3424 

76561 1 

VXSC 

VSLl 

0501 




11,3425 

77655 1 

VAD 


0562 

REP 

3 

LAST 1316 

11,3426 

01120 0 


ZV 

0504 

HEP 

4 

LAST 1316 

11.3427 

01120 0 

STORE 

ZV 

0565 




11,3430 

45014 0 

BOPP 

CALL 

0500 

HH» 

3 

LAST 1313 

11,3431 

00341 1 


JariiCH 

050T 

REP 

1 


11,3432 

23502 1 


BTOSIAIE 

0508 

BBP 

23 

LAST 1290 

11,3433 

56741 0 


raRP 2 PC 

0509 




11,3434 

77354 0 

U<A ,2 

VLQAD 

05TO 

REP 

2 

LAST T 6 

11,3435 

01102 0 


CCLHBO 

05T1 

!»■ 

5 

last 1316 

11,3438 

01120 0 


ZV 

0ST2 




11,3437 

77732 1 

VSL 3 


05T3 

HEP 

TO 

LAST 1228 

11,3440 

12467 1 

STORE 

W +540 , 2 

05T4 




11,3441 

77775 1 

VLQAD 


05T5 

REP 

6 

lAST 1316 

11,3442 

01112 1 


YV 

0570 




11,3443 

40132 0 

VSL3 

BOV 

0577 

REP 

1 


11,3444 

23574 0 


RMAIEND 

0578 

BBP 

T1 

last 1316 

11,3445 

12401 1 

STORE 

W,2 

0579 




11,3446 

77624 1 

call 


0580 

HEP 

24 

LAST 1316 

11,3447 

56741 0 


CJHP 2 PC 



AD,XJST W-POSITICN POR STORAGE 
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L 

ORBITAL 

DiTBGRATKM 






0581 





11,3450 

66354 

0 

UCA.2 

SSP 

0582 

RBP 

3 

lAST 

1310 

11,3451 

01102 

0 


CCLBBQ 

0583 

BfaF 

38 

lAST 

1308 

11,3452 

00052 

0 


S2 

0584 





11,3453 

00000 

1 


0 

0585 





11,3454 

67114 

1 

1NCH,2 

SXA,2 

0580 





11,3455 

00006 

1 


6 

0587 

RBP 

7 

lAST 

1316 

11.3458 

01111 

1 


W 

0588 





11,3457 

45104 

0 

TIK,2 

CALL 

0589 

BBP 

1 



11,3460 

23545 

1 


RBLCHDSY 

0590 

HEP 

25 

LAST 

1318 

11,3461 

56741 

0 


0RP2PC 

0591 





11,3462 

87154 

0 

LXA,2 

SXA,2 

0592 

HBF 

8 

LAST 

1317 

11,3463 

01111 

1 


YV 

0593 

HEP 

4 

i>sr 

1317 

11,3464 

01102 

0 


CCLREG 

0594 





11,3465 

77624 

1 

NEXlCOL CALL 


0595 

HEP 

20 

LAST 

1317 

11,3466 

56741 

0 


roP2PC 

0590 





11,3487 

76754 

0 

UtA.2 

VLOAD* 

0597 

REF 

5 

LAST 

1317 

11,3470 

01102 

0 


CQLRBQ 

0598 

REP 

72 

LAST 

1316 

11,3471 

75376 

1 


W.2 

0599 





11,3472 

77722 

0 

VSR3 


0800 

HEP 

9 

LAST 

1317 

11,3473 

01112 

1 

STORE 

W 

0801 





11.3474 

76173 

0 

VLOAD* AXT.l 

0802 

REP 

73 

LAST 

1317 

11,3475 

75310 

1 


» +540,2 

0603 





11,3476 

00000 

1 


0 

0004 





11,3477 

77722 

0 

VSR3 


0005 

HEP 

6 

LAST 

1316 

11,3500 

35120 

1 

SlCALL 

2V 

0008 

REF 

1 



11,3501 

23245 

0 


DIPEQO 

0007 





11,3502 

77200 

0 

B®STATB boy 

VLOAD 

08071 

HBF 

2 

LAST 

1311 

11,3503 

22706 

0 


GCRAOUB 

0808 

RBP 

7 

LAST 

1317 

11,3504 

01120 

0 


ZY 

0809 

REP 

12 

LAST 

1315 

11,3505 

255 27 

0 

STOYL 

TNUV 

0010 

REF 

10 

LAST 

1317 

11,3506 

01112 

1 


YV 

0011 

REP 

12 

lAST 

1315 

11,3507 

01521 

0 

STORE 

TOELTAV 

0812 





11,3510 

43014 

0 

8W 

BCPF 

06121 

REP 

3 

LAST 

1299 

11,3511 

04715 

0 


HIMVFLG 

00122 

REP 

1 



11,3512 

2795 3 

1 


CKMID2 

0013 

REF 

19 

LAST 

1306 

11,3513 

01756 

1 


DWoHLAO 

0814 

RBP 

5 

LAST 

1308 

11,3514 

27 234 

1 


TESILOOP 

00141 





11,3515 

77776 

1 

EXIT 


0615 

RBP 

99 

LAST 

1301 

11,3516 

0 5301 

0 

TO 

PHASCHNG 

0016 





11,3517 

04022 

0 

OCT 

04022 

0817 

REP 

50 

LAST 

1290 

11,3520 

0 5435 

0 

TO 

UPPLAG 

0818 

RBP 

4 

LAST 

1290 

11,3521 

00236 

0 

ADRBS 

HEINTPLG 

0620 

REP 

239 

LAST 

1301 

11,3522 

0 6006 

1 

TO 

INTPRET 

0021 





11,3523 

77731 

1 

SSP 


06215 

RBP 

27 

LAST 

1314 

11,3524 

00053 

1 


QPHET 

0022 

REP 

1 



11,3525 

23532 

1 


A’WOVED 

0623 





11,3528 

52014 

0 

BOI 

GOTO 

8624 

REF 

20 

LAST 

1297 

11,3527 

01714 

1 


VINTPLAO 


USSRaiS PAGE NO. 10 Bo S3 


ADJUST W-P03ITICN FOR INTBOSATICN 


ADJUST W-VELOCITY FOR INIBGHATICN 


CHECK for MID2 BEFORE GOING TO TIWINC 


PHASE 1 

PHASE CHANGE HAS OCCURRED BETWEEN 
INTSTAU. AND INTWAkE 



I 
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M2S 

RBP 

4 

last 1301 

11,3530 

26636 0 



ATOPCSM 

ee2e 

RES' 

4 

LAST 1301 

11,3531 

28711 1 



ATOPLa4 

0S2T 




11,3532 

66214 0 

AMCVH) 

set 

SSP 

0628 

REP 

4 

last 1316 

11,3533 

00061 0 



JSWITCM 

0629 

REP 

6 

last 131T 

11,3534 

01103 1 



COLRBO 

0630 




11,3535 

77741 0 


DEC 

-30 

0631 




11,3538 

66214 0 


BOPP 

SSP 

0632 

RBP 

e 

LAST 129T 

11,3537 

01755 1 



DeORgPLG 

0633 

RHP 

1 


11,3540 

23465 1 



nextcol 

0634 

FEy 

T 

last 1318 

11,3541 

01103 1 



CGLREO 

0635 




11,3542 

77717 0 


DEC 

-48 

0638 




11,3543 

77650 1 


OOTO 


063T 

RBP 

2 

last 1318 

11,3544 

23465 1 



NEXTCOL 

0638 




11,3545 

77745 1 

BELQADSV DLOAD 


0639 

HEP 

9 

last 1299 

11,3546 

01101 0 



TDEC 

0640 

HEP 

55 

lAST 1298 

11,3547 

34041 0 


SlCALL TDECi 

0641 

REP 

1 


11,3550 

27120 1 



1NTEOHV2 

0642 




11,3551 

43345 1 

DIPEOCCM DLOAD 

DAD 

0643 

BSP 

11 

last 1312 

11,3552 

02314 0 



DT/2 

0644 

BEP 

6 

last 1318 

11,355 3 

02212 1 



H 

0645 




11,3554 

66110 1 


INCr.i 

SXA.l 

0648 




11,3555 

77783 0 


DEC 

-12 

064T 

HEP 


LAST 1313 

11,3556 

01500 0 



DIFEOCNT 

0848 

BBP 

7 

last 1318 

11,3557 

02212 1 


STORE 

H 

0649 




11,3560 

74561 0 


VX3C 

VSRl 

0650 

RB' 

10 

last 1316 

11,3561 

02202 0 



PV 

0651 




11,3562 

74255 0 


VAO 

vxsc 

0652 

BSP 

0 

last 131T 

11,3563 

01120 0 




0653 

RBP 

fl 

last 1318 

11,3584 

02212 1 



H 

0654 




11,3565 

77655 1 


VAD 


0655 

BBP 

11 

LAST 131T 

11,3566 

01112 1 



YV 

0656 

BEP 

4S 

LAST 1313 

11,3567 

02152 0 


STORE 

ALPHAV 

065T 




11,3570 

52014 0 


BCN 

GOTO 

0658 

BEP 

5 

last 1318 

11,3571 

00301 0 



J3WITCH 

0659 

RHP 

2 

last 1313 

11,3572 

23610 1 



DQ».. 

0660 

BEP 

1 


11,3573 

22410 1 



PBR3 

0661 




11,3574 

43014 0 

WMATEND 

ajSAR 

CLEAR 

0662 

REP 

20 

last 131T 

11,3575 

01676 1 



DIMOFTAG 

0663 

RBP 

14 

last 1301 

11,3578 

01671 0 



ORBWFLAO 

06631 




11,3577 

77614 1 


CLEAR 


06632 

BSP 

12 

last 1301 

11,3600 

02676 1 



RarowFLO 

0604 




11,3601 

77414 0 


ffiT 

EXIT 

0665 

REP 

7 

LAST 1292 

11,3602 

01472 1 



STATEFLG 

0668 

BH' 

35 

LAST 1300 

11,3603 

0 5537 0 


TC 

alarm 

066T 




11,3604 

00421 0 


OCT 

421 

0668 

RBP 240 

LAST 1317 

11,3605 

0 6006 1 


TC 

INTPHET 




20’35 OCT. 28,1968 SATRAP .OOT PAOB 13ig 
US8IUS PAOB NO. IT BO S3 


HaOW TEMPORARY STATE VECTOR 
PRIM PElMANaiT IN CASE OF 

by starting at INTBGRV2. 
INCR&EIT H AND DIFEOCNT. 


dipbqcnt set por next entry. 




DCNT integrate w this Til’*® 
invalidate w 


PJCk UP siate vector update 
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20*35 OCT. 2S,lfi6S SATRAP .OOT PAOB 1319 
USBfUS PAOe HO. 18 BO S3 


0S89 

OSTO 


11,3808 TT8S0 1 

6 lAST 131T 11,3807 27234 1 


OOIO 


lESTLOOP 


PINISH imBORATIHO STAIB VECTOR 
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20’35 OCT. 28,1968 SATHAP .OOT PAGE 1320 


Extoapclaticn op thb w matrix, it ccmpuibs the second derivative op each C0UM4 POSITION 

iSTa BCXrriNBS TO SQLVETHE DIFTOHENTIAL EOJATICNS. THE PHO®AM 

USES A TABLE OP VEHICLE POSITION VECTORS CCNPIUED IXIRINQ THB INTEfflVATICN OP THB VSIICLES POSITION AND VELOCITY 
11.3610 T0TS4 0 DOr LxA i nr/AArMc 


last 1315 
last 1308 
last 1307 


last 1318 


last 1312 
IAST 1309 


lAST 1320 
, last 1320 
last 1320 
LAST 1320 


29 LAST 1314 


11.3611 

11.3612 

11.3613 

11.3614 

11.3615 

11.3616 

11.3617 

11.3620 

11.3621 

11.3622 

11.3623 

11.3624 

11.3625 

11.3626 

11.3627 

11.3630 

11.3631 


70754 0 DOtr. 
02150 1 
50041 1 
36210 1 
23636 0 
02202 0 
62014 0 


00342 1 
23135 1 
77771 0 
70744 1 
02150 1 
50043 0 
36210 1 
23636 0 
50414 0 
00303 1 
23632 1 


UCA,2 OLQADt 
PBODY 

hearth, 2 

SICALL ffiTAM 
Da»..l 
STOffi PV 
BCP INCR.i 
MIDPLAO 
NBRANCH 
DEC -8 


U(C,2 DLOAD4 
PBODY 


hearth - 
STCALL BETAM 
DOW..1 
BCN VSH6 

HXNPLAO 


0695 




11,38 32 

77655 1 

VAD 


0696 

REP 

12 

last 1320 

11,3633 

02202 0 


PV 

0697 

HEP 

13 

last 1320 

11,3634 

38202 1 

STCALL PV 

0698 

REP 

3 

LAST 1320 

11,3635 

23135 1 


NBRANCH 

0699 




11,3636 

60575 0 DOW. 

.1 VLCMD 

VSR4 

0700 

REP 

46 

last 1318 

11,3837 

02152 0 


ALPHAv 

0701 




11,3640 

53513 0 

P0VL4 

UNIT 

0702 

REP 

9 

last 1306 

11,3641 

02217 1 


VBCTAB,! 

0703 




11,3642 

46315 1 

POVL 

VPROJ 

0704 

REF 

47 

LAST 1320 

11,3643 

02152 0 


ALPHAV 

0705 




11,3644 

52361 1 

VX3C 

vsu 

0706 

REP 

5 

last 1312 

11,3645 

23707 0 


3/4 

0707 




11,3646 

60325 0 

POOL 

NOfW 

0708 




11,3647 

00045 0 


3eD 

0709 

HEP 

37 

last 1317 

11,3650 

00052 0 


S2 

0710 




11,3651 

63406 0 

puai 

DSO 

0711 




11,365 2 

77605 1 

CMP 


0712 




11,3653 

65301 0 

NOfW 

POOL 

0713 




11,3654 

00043 0 


34 D 

0714 

REP 

6 

last 1320 

11,36 55 

02210 0 


bbtam 

0715 




11,3656 

56 342 1 

SRl 

DDV 

0716 




11,3657 

77761 1 

vxsc 


0717 




11,3660 

57154 0 

L0CA,2 

XAD,z 

0718 

REP 

38 

LAST 1320 

11,3661 

00051 0 


32 

0719 

REP 

39 

last 1320 

11,3662 

00051 0 


32 

0720 




11,36 6 3 

57074 0 

XAD,2 

XAD,2 

0721 

REP 

40 

IAST 1320 

11,3664 

00051 0 


32 

0722 




11,3665 

00042 1 


34 D 

0723 




11,3666 

43457 0 

VSlAt 

RVO 




I 
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ORBIlAl, INTBOEIATIW 
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Bo S3 


0T24 




11,3887 

57606 

0 



0 -8D,2 

0T25 

BEP 

1 


11,2000 




SBILOC 

OBBITALi 

0T2ft 




11,3670 




BA* 


0T2T 




11,3870 

04631 

1 

3/5 

SDEC 

.6 B-2 

•T2T 




11,3671 

23148 

0 




0T28 




11,3672 

14000 

1 

THBEE/8 

2OBC 

.375 

0T28 




11,3673 

00000 

1 




0T22 




11,3674 

02314 

0 

.3D 

2DBC 

.3 B-2 

0t29 




11,3675 

31463 

1 




QT30 




11,3676 

01400 

1 

3/64 

2DBC 

3 B-6 

0T30 




11,3677 

00000 

1 




0T31 




11,3700 

10000 

0 

DPI/4 

ZDBC 

.25 

OT31 




11,3701 

00000 

1 




0T32 

HEP 

2 

lAST 1273 

11,3700 



DOUlRTBR 

EQUALS 

DPl/4 

0733 

REP 

3 

LAST 1321 

11,3700 



P031/4 

equals 

DP1/4 

0734 




11,3702 

03000 

1 

3/32 

2DEC 

3 B-5 

0734 




11,3703 

00000 

1 




0735 




11,3704 

36000 

1 

15/18 

ZDEC 

15. B -4 

0735 




11,3705 

00000 

1 




0730 




11,3706 

30000 

1 

3/4 

2Dec 

3.0 B -2 

0736 




11,3707 

00000 

1 




0737 




11,3710 

22525 

0 

T/12 

Tpec 

.5833333333 

0737 




11,3711 

12525 

0 




0738 




11,3712 

22000 

1 

9/I6 

2Pec 

9 B -4 

0738 




11,3713 

00000 

1 




0739 




11,3714 

01200 

1 

5/128 

■gxc 

5 B-t 

0739 




11,3715 

00000 

1 




0740 

REP 

13 

LAST 1315 

04,3455 



DPZERO 

equals 

ZERCVEC 

0741 




11,3716 

25252 

0 

DP2/3 

■gxc 

.6666666667 

0741 




11,3717 

25253 

1 




0742 

REP 

3 

LAST 1316 

11,3716 



2/3 

equals 

DP2/3 

07455 




11,3720 

00027 

1 

OCT27 

OCT 

27 

R0746 

LM504 

IS TBMPCH.ARY 







07462 




13,3715 




bank 

13 

07463 

HEP 

1 


13,2000 




sbtloc 

OHHnAL2 

07464 




13,3715 




bank 


B0747 

IT IS VITAL, THAT THE FOLLOWING CCHSIANTS NOT BE 

SHUFFLED 

0748 




13,3715 

77764 

1 


DEC 

-11 

0749 




13,3716 

77775 

1 


DEC 

-z 

0750 




13,3717 

77766 

0 


DEC 

-9 

0751 




13,3720 

77771 

0 


DEC 

—6 

0752 




13,3721 

77775 

1 


DEC 

-2 

0753 




13,3722 

77775 

1 


DEC 

-2 

0754 




13,3723 

00000 

1 


DEC 

0 

0755 




13,3724 

77763 

0 


DEC 

-12 

0756 




13,3725 

77766 

0 


DEC 

-9 

0757 




13,3726 

77773 

1 


DEC 

-4 

0758 




13,3727 

77770 

1 

ASCAIE 

DEC 

-7 

0759 




13,3730 

77771 

0 


DEC 

-6 
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OBBIHU. nriBGIMTION 


USBIteS PAOB NO. 21 


HEP 9 LAST 1320 


BBP 8 LAST 1311 


13.3731 

13.3732 

13.3733 

13.3734 

13.3735 
13,3738 
13,3737 

13.3740 

13.3741 

13.3742 

13.3743 

13.3744 

13.3745 

13.3746 

13.3747 

13.3750 

13.3751 

13.3752 

13.3753 

13.3754 

13.3755 

13.3756 

13.3757 
13,3760 
13,3733 
13,3781 
13,376 2 
13,3783 

13.3764 

13.3765 

13.3766 

13.3767 
13,3770 

0000 

0006 

0014 

0016 

0024 

0032 

0040 

0016 

0022 

0024 

0032 


Z7446 1 
14820 0 
16471 1 
01352 1 
22437 1 
16067 1 
00000 1 
00000 1 
02302 1 
24738 0 
00000 1 
00000 1 
77776 1 
53032 0 
10407 0 
05344 1 
13710 0 
35320 0 
12160 0 
12124 0 


20BC# 
HJEARIH 20EO 
}pec 

J 4 HBO/J 3 2DBC4 

TPBC 

2J3BE/J2 2 DBC 4 

2DEO 
J2BE030 2PeC* 
3J22R2f« 2DBO 


1.32715445 B16 B-54* 
4.9027780 Eg 8-30+ 
3.986032 Eio B-se^c 
0 

.4991807391 E7 B-2B* 
0 

-.1355426363 B5 B-27# 
.3067493316 Eis B-eo* 
1.75501139 E21 B-72* 
9.20479048 Bie B-sg* 


24000 

1 

5/8 

2DBC 

5 B-3 

00000 

1 




74631 

0 

-1/12 

2pec 

-.1 

63145 

1 

HIM 

_ 

HJEARIH -2 

00243 

1 

BBCbATIO 2DBC 

.01 

32703 

1 




03654 

0 

RSPHERE 

2Pec 

64373 76 B3 B-29 

21000 

1 




03654 

0 

BCM 

2PBC 

16093.44 E3 B-2T 

21000 

1 




04627 

0 

BOB 

ZPBC 

80467.20 E3 B-29 

25200 

1 





RATT 

bcuals OD 



VATT 

equals 8D 



TAT 

equals 

I2D 



RATTl 

equals 14D 



VATTl 

equals 2 oD 



NU(P) 

equals 

28D 



Toeci 

EOJALS 32D 



URPV 

equals 14D 



COSPHI/2 BOJALS URiV +4 



uz 

bquals 

20D 



IVBC 

BOU^LS 

2SD 
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20’35 OCT. 28,1968 SATRAP .OOT PAC8 1323 
USR«S FAOe NO, 1 80 S3 


S2.3505 

23.2000 

23.3140 


BA1« 22 
STLOC INPLICHT 
BAIOC 


HEP 34 LAST TT2 ES.lOTl EBAfOCr XW 

CALOCIA COMPUIBS THB OYEIO TQRQLB ANGLES lEQUIHED TO BRING THE STABLE ^CMKR INTO THE DESIRED QBianATICW. 

THE INPUT IS THE DESIRED STABLE MBBER COOTOINATBS REPERRED TO PRESENT STABLE MMER COORDINATES. THE THREE 
HALP-LWIT vectors AI« stored at XDC, YDC, AiO 2PC. 

»« OUTPUTS are THB THREE GYRO TOROJINO ANOLES TO BE APPLIED TO THE Y, Z, AND X GYROS AND ARB STOBHJ DP AT IGC, 
HOC, AND OOC respectively. 


0013 

EBP 

1 





COlNT 

23/INPL,T 


0014 




23,3140 

71220 

1 

CALOGIA m 

DLCAD 

PUaflXSlN 00-03, 16D-2TI 

0015 

RBP 

41 

LAST 1320 

23,3141 

00051 

0 


S2 

XDC = OCDi XD 2 XD 3 ) 

0016 

REP 

5 

LAST T24 

23.3142 

02714 

1 


XDC 

YDC = (YDl YD 2 YD 3 ) 

OOIT 




23,3143 

65325 

0 

POOL 

POOL 

ZPC = ( 2 P 1 2Pz 2 D 3 ) 

0018 

RBP 

30 

LAST 1220 

23.3144 

15332 

1 


HI6ZBROS 


0019 

REP 

6 

LAST 1323 

23,3145 

02720 

0 


XDC 4.4 


0020 




23,3140 

55476 

t 

DC(MP 

VDEP 


0021 




23,314T 

77658 

1 

UNIT 



0022 

HEP 

1 


23.3150 

14027 

1 

STOn., 

ZPRIW 

ZP = LNIT<-XD3 0 XDD : 

0023 

***' 

2 

LAST 1323 

23.3151 

00027 

1 


ZPH»« 


0024- 




23,3152 

77742 

0 

SRl 



0025 

REP 

10 

LAST 1210 

23,3153 

14023 

0 

STDDL 

SINTH 

SIN(IOC) = ZPl 

0026 

RBP 

3 

LAST 1323 

23,3154 

00033 

1 


ZPHl^E 44 


002T 




23.3155 

77742 

0 

SHI 



0028 

REP 

9 

LAST 1210 

23,3156 

34021 

0 

SICALL COSIH 

CCS(IGC) = ZP3 

0029 

HEP 

5 

LAST 838 

23,3157 

47211 

0 


ARCTRIG 


0030 

REP 

3 

LAST 528 

23,3160 

18782 

0 

STOX, 

IOC 

Y GYRO TOROUING ANGLE 

0031 

HEP 

T 

LAST 1323 

23,3161 

02716 

0 


XDC +2 


0032 




23,3162 

77742 

0 

SRl 



0033 

I®P 

11 

LAST 1323 

23,3163 

14023 

0 

STODL 

SINTH 

SIN(MGC) = XD2 

0034 

REP 

4 

LAST 1323 

23,3164 

00027 

1 


ZPRIt* 


0035 




23,3165 

65205 

0 

DMP 

POOL 


0036 

REP 

8 

LAST 1323 

23,3168 

02720 

0 


XDC 44 

PDOO = CzPi)(XD3) 

003T 

REP 

5 

LAST 1323 

23,3167 

00033 

1 


ZPRIW 44 


0038 




23.3170 

45205 

1 

DMP , 

DSO 


0039 

RBP 

9 

LAST 1323 

23,3171 

02714 

1 


XDC 

MPAC r (ZP3)(XOl) 

0040 




23,3172 

77626 

0 

S»DR 



0041 

REP 

10 

LAST 1323 

23,3173 

43756 

1 

SlCAU, 

COSTH 

COS(MGC) = MPAC - PDoo 

0042 

REP 

6 

LAST 1323 

23,3174 

47211 

0 


ARCTRIO 



in 
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mPLICWT 
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•043 

HEP 

3 

WST 

528 

23,3175 

26764 

0 

•044 

REP 

6 

last 1323 

23,3176 

00027 

1 

•045 





23,3177 

77841 

1 

0048 

REP 

4 

LAST 

534 

23,3200 

02730 

1 

•04T 

REP 

11 

LAST 

1323 

23,3201 

24021 

1 

0048 

REP 

T 

last 1324 

23,3202 

00027 

1 

0049 





23,3203 

77841 

1 

0050 

REP 

4 

last 

534 

23,3204 

02722 

1 

0051 

REP 

12 

LAST 

1323 

23,3205 

34023 

1 

0052 

HEP 

7 

LAST 

1323 

23,3206 

47211 

0 

•053 

REP 

17' 

LAST 

714 

23,3207 

36760 

0 

0054 

REP 

42 

LAST 

1323 

23,3210 

00051 

0 


STCVL HOC 

ZPRIMB 

DOT 

tPC 

STtVL COSTH 
ZPRIMB 

DOT 

me 

STCAIX, SINTH 

AHCTRIO 

SlCALL OQC 
32 



20*35 OCT. 28,1980 SATRAP .007 PAOB 1324 
U»kS PACB NO. 2 S3 

Z onto TORCVINa anolb pbacticw op rey. 

COSfOOC) = yr . 2DC 

siNiccx;) = zp . me 

X onto TORQUlNa angle FRACTICN CP REV. 





Ill 


KOOSS 

MOSS 

ROOST 
R0059 
0060 
0061 
’ 0062 

0063 

0064 

0065 

0066 
006T 
0068 
0069 
OOTO 
OOTl 
00T2 
00T3 
00T4 
00T5 
00T6 
OOTT 

OOTe 

00T9 

0080 

0081 

0082 

0083 

0084 
OOBS 
0086 
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DiPLlCHTALiaMOT ROUTINES USER. 8 PAGE NO. 3 Bs S3 

ABPmlO GMPUIES an ANGLE OIVHl HB SINE AIO COSINE OP THIS ANOB. 

BB DiPUIS ABE SIN/4 AM> C08/4 STORED DP AT SINTH AND COSTH. 

BB output is BB CALCUWTED angle BETVIEEN >.5 and -.5 REVOUJTICKS AND STORED AT THETA. THE OUTPUT IS ALSO 


available at mpac. 






23.3211 

51545 

1 

REP 

13 

LAST 

1324 

23.3212 

00023 

0 





23.3213 

50025 

0 

REP 

1 



23.3214 

07427 

1 

US' 

1 



23.3215 

47224 

0 





23.3210 

72545 

0 

REP 

12 

LAST 

1324 

23,321T 

00021 

1 





23.3220 

75326 

1 

REP 

14 

lAST 

1325 

. 23.3221 

00023 

0 

REP 

T 

LAST 

1210 

23.3222 

00025 

0 





23.3223 

77616 

0 





23.3224 

72545 

0 

REP 

15 

LAST 

1325 

23.3225 

00023 

0 





23.3226 

77736 

0 

REP 

6 

LAST 

1325 

23.3227 

14025 

0 

REP 

13 

LAST 

1325 

23,3230 

00021 

1 





23,3231 

77640 

0 

REP 

1 



23,3232 

47235 

0 





23,3233 

43545 

1 

REP 

9 

LAST 

1325 

23.3234 

00025 

0 





23,3235 

75345 

1 

HEP 

12 

LAST 

1219 

23,3238 

15330 

0 

REP 

16 

LAST 

1325 

23,3237 

00023 

0 





23,3240 

77625 

0 

HEP 

10 

LAST 

1325 

23,3241 

00025 

0 

REP 

11 

LAST 

1325 

23.3242 

00025 

0 





23,3243 

77616 

0 


SINTH 
EM 
OT9)45 
TBIOl 

DLQAD 9.1 

COSTH 

siai 

SINTH 

store theta 
WO 

DLCMD 9.1 

SINTH 

ASIN 

STODL theta 


DSU 


AC08 


EM 


DLQAD 


THIG2 DLQAD 


DSU 


STORE 

WO 


COSTH 

TBI02 

Rh'O 

THETA 

SIGN 

HIDPHALF 

SINTH 

THETA 

THETA 


POa6XWN 16D-21D 


ABS<SIN/4T - SIN{45I/4 
IP (-45,45> OB (135.-135) 
<45.135) OB (-135. -45) 


X = abccos(Cos) with SICN(SIN) 
(-45.45) OB (135.-135) 

X = ABCSIN(SIN) WITH SIGN(SIN) 

IP <135.-135) 

X = ABCSIN(SIN) (-45.45) 
<135.-135) 


X = .5 WITH SIGN(SIN) - ABCSIN(SIN) 

(+) _ (♦> OB (-) - (-) 
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L INPLIC^fr ALIQ'M&rr routines 

*0089 PLICMr subroutines. **ait*T. miQI APPEARS AMOm JHB poaered 


# 
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R0090 . CVUXX3A COVUIBS WB CDU DRIVING AN(3LES RBOLJIRED TO BRING THE STABLE (BCER INTO THE DESIRED ORIEmATICM. 

R0092 WE INPUTS ARB D THE NAVIGATION BASE COORDINATES REFERRED TO ANY COORDINATE SYSTB4. THE THREE HALE-ONIT 
R0094 VECTORS ARE STORED AT XNB.YNB, AND 22IB. 2> THE DESIRED STABLE MB^BR (XXIRDINATES REFERRED TO THE SA^e 

R009S coordinate SlfSTSI ARE STOBH3 AT Xa4, YSM, AND ZS4. 

R009T TW OUmiTS ARE THE THREE CDU DRIVING ANGtES AND ARE STOROl SP AT THETAD, THETAD -t-l, AND THETAD *2- 


0099 




23,3244 

0100 




23,3245 

0101 




23,3246 

0102 

REF 

10 

LAST 772 

23,3247 

0103 

REF 

5 

LAST 772 

23,3250 

0104 




23,3251 

0105 




23,3252 

0100 

REF 

7 

lAST 772 

23,3253 

0107 

DBF 

43 

LAST 1324 

23,3254 

0108 

REF 

14 

LAST- 1325 

23,3255 

0109 




23,3256 

0110 




23,3257 

0111 

REF 

7 

LAST 772 

23,3260 

0112 

IBP 

17 

LAST 1325 

23,3261 

0113 

REJF 

8 

LAST 1324 

23,3262 

0114 

HEP 

18 

LAST 1324 

23,3263 

0115 




23,3264 

0118 




23, 3265 

0117 

REP 

11 

LAST 1327 

23,3266 

0118 

REP 

8 

LAST 1327 

23,3267 

0119 




23,3270 

0120 

REF 

15 

LAST 1327 

23,3271 

0121 

REF 

7 

LAST 1327 

23,3272 

0122 




23,3273 

0123 

REF 

12 

lAST 1327 

23,3274 

0124 

REF 

18 

LAST 1327 

23,3275 

.0125 

REP 

9 

LAST 1327 

23,3276 

0128 

REF 

4 

LAST 1324 

23,3277 

0127 




23,3300 

0128 

REF 

1 


23,3301 

0129 




23,3302 

0130 

REF 

1 


23,3303 

0131 




23,3304 

0132 

REF 

4 

LAST 772 

23,3305 

0133 




23,3308 

0134 

REF 

18 

LAST 1327 

23,3307 

0135 

REF 

35 

LAST 1323 

23,3310 


77601 

0 

CALCGA 

9ETPD 


00001 

0 



0 

47375 

0 


VLOAD 

VXV 

02714 

1 



XNB 

02700 

1 



Ya4 

41456 

0 


UNIT 

POSH 

44041 

1 


DOT 

m 

02730 

1 



tsb 

00051 

0 



82 

24021 

1 


STOW, 

COSTH 

OOOOl 

0 



0 

77641 

1 


DOT 


027 22 

1 



YNB 

34023 

1 


SICALL 

SINTH 

47211 

0 



ARCTRIG 

26760 

1 


STOVL 

OGC 

00001 

0 



0 

50235 

0 


VXV 

DOT 

02714 

1 



XNB 

02700 

1 



Y94 

77752 

1 


SLl 


24021 

1 


snvL 

COSIH 

02700 

1 



Y»4 

77641 

1 


DOT 


02714 

1 



XNB 

34023 

1 


SICALL SINTH 

47211 

0 



ARCTRIG 

02764 

0 


STOIB 

M3C 

45246 

0 


ABS 

DSU 

07431 

0 



.166... 

77644 

1 


BPL 


47324 

1 



OMXTKl 

50375 

0 

CALOGAi 

VLQAD 

DOT 

02706 

1 



ZSN 

00001 

0 



0 

24021 

1 


STOVL 

COSTH 

02672 

0 



XS4 


puaaxwN 00-05, 16D-21D, 34D-37D 

XNB = OQA (CUIER 0»«AL AXIS) 

Y« = IGA ( INNER GIFBAL AXIS) 

PDo = CNITCOQA X IGA) = MCW 


COSfOO) = MOA . 2NB 


SINCOO) = MOA . YNB 


PBOVISICN for mg angle op 90 DEGREES 


COS(MO) = IGA . (NGA X OGA) 


SIN(MO) = IGA . OGA 


IF ANGLE GREATER THAN 60 DEGHEKS 


COStlG) = ZSN . !4GA 


Ill 
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23,3311 

45441 

1 

dot 

SIADR 

013T 

BEP 

19 

LAST 

1327 

23,3312 

43754 

0 

SlCAU, SINTH 

0138 

REP 

10 

LAST 

1327 

23,3313 

47211 

0 


ARCTRIO 

0139 

HEP 

4 

LAST 

1323. 

23,3314 

26762 

0 

ST09L 

IOC 

0140 

REP 

19 

lAST 

1327 

23,3315 

02760 

1 


CCC 

0141 





23,3316 

43034 

1 

RIB 

BtNCm 

01415 

REP 

5 

LAST 

535 

23,3317 

45547 

0 


VI STOPS 

0142 

lap 

2 

LAST 

772 

23,3320 

00200 

0 


(MIPIAO 

01425 

HEP 

44 

LAST 

1327 

23,3321 

00051 

0 


S2 

0143 

HEP 

20 

lAST 

722 

23,3322 

35156 

0 

SICALL 

nerAo 

0144 

REP 

45 

LAST 

1328 

23,3323 

00051 

0 


S2 

0145 





23,3324 

77776 

1 

ODtOCici EXIT 


0146 

REP 

36 

LAST 

1318 

23,3325 

0 5537 

0 

1C 

AIAIM 

014T 





23,3326 

00401 

1 

OCT 

00401 

0148 

REP 

51 

LAST 

1317 

23,3327 

0 5435 

0 

IC 

UPPLAO 

0149 

HEP 

2 

LAST 

417 

23,3330 

00056 

1 

ACRES 

OXKPAIL 

0150 

HEP 

241 

LAST 

1318 

23,3331 

0 6006 

1 

TC 

WITHBT 

0151 





23,3332 

77650 

1 

GOTO 


0152 

REP 

1 



23,3333 

47304 

0 


CAIXGAi 


20’35 OCT. 28,1968 SATRAP .OOT PAOB 1328 
imuS PAGE NO. 6 SS S3 

SDK IQ) = XSM . MQA 


ODBAL LOCN HAS OCCUHED 




ASSaetB BBVISION 249 CF AOC PROORAM COLOSSUS BY NASA 2021111-041 20*35 OCT. 28,1968 SATRAP .007 PAGE 1329 


INPLICHT ALlCNeTT ROUTINES 


userbS pace no. 


ni53 AXISGBI OCMPUIBS THE COORDINATES OP O® COORDINATE SYSTEM REFERRED TO ANOWBR COORDINATE SYSTEM. . 

■0155 THE INPUTS ARE 1> THE SIARl VECTW REFERRED TO COORDINATE SYSTEM A STOR0D AT STARAD. 2) THE S»R2 
■S 15 T REFERRED TO COORDINATE SYST04 A STORED AT STARAD +6. 3) THE STARl VECTOR REFBHHaJ TO COORDINATE SYSTBI B STORED 
M159 AtTo^ION 6 op the VAC AREA. 4) THE STAR2 VECTOR REFERRED TO COORDINATE SYSTB4 B STORED AT LOCATICN 120 OP 
msi THE VAC area. 

. >0162 THE OUIPUT DEFINES COORDINATE SYSTEM A REFERRED TO COORDINATE SYSTEM B. THE THREE HALP-lMIT VECTORS ARB STORED 
80164 at locations XDC, XPC *6, XDC *120, AND STARAD, STARAD +6, STARAD +1^. „ r, r. 

23,3334 66370 0 AXISGEM AXT,1 SSP PUSHX1»N 00-30D,34D-37D 

0166 REP 11 LAST 738 23,3335 0274 3 0 STARAD *6 

0167 REP 54 lAST 1310 23,3336 00051 0 Si 

■168 REP 12 last 1329 23^3337 02727 1 STARAD -6 


■172 BEE 13 LAST 1329 23,3343 0275 2 0 
•173 REP 14 LAST 1329 23,3344 02760 1 
■1T4 23,3345 77656 1 
•175 REP 15 LAST 1329 23,3346 06760 0 
■1T6 23,3347 77773 1 
•177 HEP 16 LAST 1329 23,3350 02752 0 

•ITS 23,3351 76433 1 
0170 KBP 17 LAST 1329 23,335 2 0 2760 1 
•180 HEP 18 LAST 1329 23,335 3 06766 0 


23.3340 77601 0 

23.3341 00001 0 0 

23.3342 46773 0 AXlSGENl VLCAD+ VXV* 


STARAD +12D,1 
STARAD +18D,1 

miT 

STORE STARAD +180,1 
VLQAD4 

STARAD +1^,1 


06D UA = Si 

STARAD +00D LB = SI 

12 D VA = LNITISl X Sz) 

STARAD +06D VB = UNITY Si X’ S2) 


VXV4 VSLl 

STARAD +18D,1 ISD WA = uA X VA 
STORE STARAD +24D,1 STARAD +120 WB = UB X VB 


23.3354 

23.3355 

23.3356 

23.3357 
23,3360 


77700 0 
47342 1 

66160 0 
00006 1 
00038 1 


AXlSGENl 

AXC.l Sl<A,l 

6 

300 


REE 55 LAST 1329 


REP 46 LAST 1328 


23.3361 

23.3362 

23.3363 

23.3364 

23,3385 

23.3366 

23.3367 

23.3370 

23.3371 

23.3372 

23.3373 


AXT,1 SSP 
18D 
Si 
6 

AXT,2 SSP 


66370 0 
00022 1 

00051 0 
00006 1 

66374 1 
00006 1 

00052 0 
00002 0 


78720 0 AXISGEN2 XWX,1 VLCAD* 
00036 1 30D 

00001 0 0,1 


Xl=-6 X2=;+6 Xl=-6 X2=+4 Xl=-6 X2=+2 


Ill 


ei9T 

0198 

0199 

0200 
, 0201 

0202 

0203 

0204 

0205 
0208 
020T 

' 0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 
0210 
021T 
0218 

0219 

0220 
0221 

0222 


ASSMtB KVISIW 249 CP JWC PKXaWM (XX/1S3US BY ittSA 2021111-041 

DPuarr OLi cma nr HdrriNBs 

OB' M LAST 1329 

■O' 20 MOT 1330 




OB' 21 Mot 1330 


lOO*' 10 Mot 1323 


OB' 11 MOT 1330 

OB' 22 mot 1330 
OB’ 5 mot 1324 
OB' 23 Mot 1330 
OB' 5 MOT 1324 
OB' 24 mot 1330 


23,3374 

62757 0 

Vlt3C4 

PDVM 

23,3375 

75033 0 


S7ARAO 40,2 

23,3376 

00007 0 


8,1 

23,3377 

77757 1 

VXBC* 


23,3400 

75025 1 


SWIMO +120.2 

23,3401 

30031 0 

SKWL4 240 

23,3402 

00015 0 


120,1 

23,3403 

53357 0 

VUSP* 

VAO 

23,3404 

75017 0 


OTAHAO +180,2 

23,3405 

78455 1 

VAO 

VSLl 

23,3406 

00031 0 


240 

23,3407 

53520 0 

XCJOC.l 

UNIT 

23,3410 

00036 1 


300 

23,3411 

06738 0 

STCRB 

XDC +ibO,i 

23,3412 

77700 0 

TIY,1 


23,3413 

47414 0 


AxiasBca 

23,3414 

77704 1 

AXIaOENa tix,2 


23,3415 

47371 1 


AXIBOfte 

23,3418 

77775 1 

VUMO 


23,3417 

02714 1 


XDC 

23,3420 

26736 1 

OTCVL 

STABAD 

23,3421 

02722 1 


YDC 

23,3422 

28744 1 

snvL 

STABAO +6 

23,3423 

02730 1 


2DC 

23,3424 

0275 2 0 

OTOHB 

STAHAO +120 

23,3425 

77616 0 

RVO 



20’35 on. 28,1968 SATBAP 
USEtUS PACK MO. a 
J=(U4)CUBi) J:;(Ul)ClB2) 

K=CvA)(V8l) J=(vAKvB2) 

IcCwAXwBi) Jr(fCA)(«S2) 


OOT PAOB 1330 
ft S3 

J=CUAKuB3) 

J=(VA)CV83) 

J=(WA)(wB3) 


XDC = L*J4K YDC = L+JtK ZDC = 





Assaei£ bbvisich 249 op kc pboobam coumsus By kasa 2021111-041 


20’35 OtJT. 28,1998 SATBAP .COT PAOB 1331 


iNPLiatr ALia««wr bootdes 


UaSRaS PACB NO. 


23,3420 

23.342T 

23.3430 

23.3431 


0SS20 0 aTS<45 
28075 1 


05252 1 
25253 1 


.1686686067 







*SSM«HEvisiW*49 0P«CmH«MOaL«a«W 20-35 OCT. 29.1968 SATOAp .oot PACK 1332 

I. l»U(»rALI««WHtWI*S IBBa^PACBNO. 10 *5 33 



(evisioi 2*9 OP AOC paOOBAM COLOSSUS BY NASA 2021111-041 20’35 OCT. 28,1968 SATHAP .OOT PAOB 1333 


PCXIBRBD PLIGHT smtOUTINBS 


RBP 1 


14,3405 

23,2000 

23,3432 


BAI«C 14 
SBILOC POBPLITB 
BA29C 

BBAMC: DBXDBX 
C 0 UNT 4 sS/POtrPL 


USSEbS PAOB NO. 1 Bo S3 
SAEe PSANK AS IHB PINDCIXJl Sl^PROCHAM 


axjiRio, CDumioi, cixmii02, and oowwos all ccmpuib the sines and 
■ COSINES OP IHIffiE 2«s COMPLEOTT ANGLES AND PLACE THE RESULT, DOUBLE 
PRECISIOt, IN THE SAME ORDER AS THE INPUTS, AT SINOXJ AND COSCRJ. AN 
additional output IS THE 1«S CCMPLEMB4T ANCLES AT tJXJSPOT. THESE 
routines 00 OUT OP their way to leave the mpac area as they kind it, 

EXCEPT FOB THE GENERALLY iniMPOElDANT MPAC ♦z. THEY DIPPER (HLY IN 
WHERE THEY GET THE ANGLES, AND IN leTHOD OP CALLING. 

CSUTRIO (AND CDUIRIOl, WHICH CAN BS CALLED IN BASIC) CCMPUIE THE 
SINES AND (XBINES PRCM THE CURRENT CCNTENTS OP THE OXJ IffiQISTERS. 
the CCNTBTTS op CDUIPMP, etc., are not TOUCHED SO THAT THEY MAY 
(XKrlNlB TO PCKM A (XNSISTENT SET WITH THE LATEST PIPA READINGS. 

CDUIRIOl IS like CDUIRIO ExCBPT THAT IT CAN BE CALLED IN BASIC. 

a>4TR40S FINDS ODU VALUES IN OXJSPOP RATHER THAN IN aXJT04P. THIS 
ALLOWS users TO W)KE TRANSPOEMATICHS USING ARBITRARY ANGLES, OR HEAL 
ANGIES IN AN ORDER OIHER THAN X Y Z. A CALL TO THIS HCUrlNE IS 
necessary in PHEPARATICN for a CALL TO AX+SB+T IN EITHER OP ITS TWO 
MODES C» NBS4) . SINCE A)C*SR4T EXPECTS TO FIND THE SINES AND 

COSINES IN THE ORDER Y Z X THE ANGLES MUST HAVE PLACED IN OXISPOT 

IN THIS ORDER CBWR+GS NEED NOT BE BEPEATSD WHEN AX+SRW IS CALLED 
MORE THAN CNCE, PROVIDED THE ANGLES HAVE NOT («ANGED. NOIE THAT SINCE 
IT (JjOBBERS BuP2 (IN THE SINE AND COSINE ROUTINES) CD4TR4GS CANNOT BE 
(AILED USING BANkCALL. SOBHY. 

C0*TR*0 IS like CD«R+03 EXCEPT THAT IT CAN BE CALLED IN 
INTEHPBBTIVE. 


REP 242 LAST 1328 


0034 

0035 REP 1 

0036 REP 243 LAST 1333 
003T 


23.3432 TTTT6 1 CDUTRIG EXIT 

23.3433 0 3442 0 IC 

23.3434 0 6006 1 

23.3435 77616 0 RYQ 

23.3436 77776 1 CtMTRAG EXIT 

23.3437 0 3450 0 TC 

23.3440 0 6006 1 

23.3441 77616 0, RVO 


0038 REF 28 LAST 1034 23,3442 3 0032 0 CIXJIRIGS CA 

0039 REP 6 LAST 535 23,3443 54 772 1 TS 

0040 REF 16 LAST 1034 23,3444 3 0033 1 CA 

0041 REP 7 LAST 1333 23,3445 54 766 1 TS 


CDUIRIGS 

INTPBBT 


CD4TR+GS 

INTPRET 


CDUX 

CDUSPOT +4 

CDUY 

CDUSPOT 


ill 


*S3»»B RBVIaKN 249 OP AOC PHOGBAM COLOSSUS Bf NASA 2021111-041 

raesso PLiofT subboutines 



20*35 OCT. 28,1968 SATHAP .OOT PAOB 1334 
UffilUS PACE NO. 2 Bo S3 


•042 

tCF 

22 

last 1034 

23,3440 

3 0034 0 

CA 

CDUZ 

•043 

HHP 

8 

l>»r 1333 

23,3447 

54 770 0 

TS 

ODUSPOr *2 

•044 




23,3450 

0 0006 1 

OMTIwas EXTPND 

•045 

REP 

4 

last 69 

23,3451 

22 142 0 

OCCM 

T & i 2 

•040 

BB' 

IT 

IAST 1152 

23,3452 

3 4710 0 

CAP 

POUR 

■ OOAT 

US' 

3T 

IAST 1122 

23,3453 

7 6211 1 

TRKXAMcp MASK 

SIX 

•048 

FEP 

3 

LAST 69 

23,3454 

54 143 0 

TS 

1EM3 

0049 

RBP 

4 

last 1334 

23,3455 

50 143 1 

INDEX 


•050 

HH» 

9 

last 1334 

23,3456 

3 0766 0 

CA 

CDuSPOr 

•051 

BSP 

659 

last 1311 

23,3457 

52 155 1 

dkcm 

MPAC 

•052 

REP 

53 

last 1148 

23,3460 

52 127 1 

DXCM 

V0UP ♦4 

•053 

BBP 

1 


23,3461 

0 4652 1 

7C 

USPRCADR 

•054 

BBP 

10 

LAST 83T 

23,3462 

45510 1 

CADR 

CDUU30IC 

0055 




23,3463 

0 0006 1 

EXTEND 

•056 

BEP 

660 

lASr 1334 

23,3464 

3 0155 0 

DCA 

MPAC 

•05T 

BBP 

5 

last 1334 

23,3465 

50 143 1 

INDEX 

TH43 

0058 

BBP 

10 

last 1334 

23,3466 

52 767 0 

DxCM 

CDUSPOT 

0059 

BEP 

2 

LAST 1334 

23,3467 

0 4652 1 

TC 

USPRCADR 

0000 

R 9 ^ 

2 

last 1088 

23,3470 

01516 1 

CADR 

COSINE 

•061 

Wy 661 

last 1334 

23,3471 

52 155 1 

CXCH 

MPAC 

•002 

BEP 

6 

last 1334 

23,3472 

50 143 1 

INDEX 

TO<3 

0003 

BEP 

4 

LAST 72 

23,3473 

52 745 0 

DxCH 

CO9CDU 

0004 




23,3474 

0 0006 1 

EXTSro 


•065 

REP 

T 

last 1334 

23,3475 

5 0143 1 

INDEX 

TB43 

•060 

BBP 

11 

last 1334 

23,3476 

3 0767 1 

DCA 

CDUSPOT 

OOOT 

BBP 

3 

last 1334 

23,3477 

0 4652 1 

TC 

USPRCADR 

0068 

REP 

2 

last 1088 

23,3500 

01530 0 

CADR 

SINE 

0009 

BH' 

54 

last 1334 

23,3501 

52 127 1 

DxCM 

VBUP +4 

OOTO 

HH' 662 

last 1334 

23,3502 

52 155 1 

DxCM 

MPAC 

•on 

REP 

8 

last 1334 

23,3503 

50 143 1 

INDEX 

Te 43 

00T2 

REP 

4 

LAST 72 

23,3504 

52 7 37 0 

DxCM 

SINCDU 

00T3 

REP 

9 

LAST 1334 

23,3505 

10 143 0 

CCS 

TEM3 

•0T4 

BEP 

1 


23,3506 

1 3453 1 

TCP 

lR+GLA=(tp 

00T5 


5 

last 1334 

23,3507 

0 0142 0 

TC 

TBM2 


M»KB IT Evai AND SHALLBR 


STtJlINQ 2«S CCMP ANGLE, LOADING MPAC 
STQRIWJ MPAC TOR LAlER BESTOBATICN 


STCRINO 1»S CCMPI.a4Brr ANGLE 


STORING COSINE 


loading i«s ccmpl&»it angle 

SINE +1 Expects argument in a and l 
bringing up prior MPAC TO BE RESTORED 





a&P’ A3Sa«LB REVISION 249 OP AOC PROtlBflM COLOSSUS BY NASA 2021111-041 
L POWERED PLICWr Sl«IOUrlNKS 


20’35 OCT. 2g,19Sa SATRAP .007 PAOB 1335 
USEB«S PACK NO. 3 EO S3 


POOT6 

ROOTS 

R0080 

R0082 

ROOS4 


OUICTRIO, INTENDeO FOR OUlOANCB CYCLE USE WHERE Tl« IS CRITICAL, IS A MUCH FASTER VERSION OP CK+TR+OS. 
OUICTRIO CCMPUTES AND STORES THE SINES AND COSINES CP THE 2«S CCMPt,EWENT ANGLES AT OXJSPOr, CnjSPOT *2, 

Aid CDOSPOr 4-4. unlike CD*TR«33, OUICmiO DOES NOT LEAVE THE i«S COiPL^MBNT VBBSICNS OP THE ANO^S IN 
ODUSPOr. OUIOtRIO-S EXECUrlCN TIMS 13 4.1 MS 







CALL£D FROM INTERPBCTIVB AS AN RIB OP-CODB, CR FRCM BASIC VIA BANKCAli. OB I»IKCAli,. 


111 

REF 

11 

LAST 

225 

23.3510 

23.3511 

23.3512 

0 0004 
0 0006 
22 061 

0 

1 

0 

aaiCTRia 

INHINT 

BXTB® 

(KCM 

ITBMPI 1 

M91 

REF 

IB 

LAST 

1334 

23,3513 

3 4710 

0 


CAP 

POUR 1 

#092 

REF 

38 

LAST 

1334 

23,3514 

7 6211 

1 

+4 

MA9C 

SIX 

#093 1 

REF 

10 

LAST 

223 

23,3515 

54 062 

1 


TS 

ITPMPz 

0094 

REF 

11 

LAST 

1333 

23,3516 

50 062 

0 


INDEX 

ITEMPB 

#095 

REF 

12 

LAST. 

1334 

23,3517 

3 0766 

0 


CA 

OXJSPOT 

#09# 

REF 

8 

LAST 

1044 

23,3520 

0 4770 

0 


TC 

SPSIN 

#09T 

#098 

REF 

T3 

LAST 

1205 

23.3521 

23.3522 

0 0006 
7 4675 

X 

0 


EXTEND 

MP 

BIT14 

#099 

REF 

12 

LAST 

1335 

23,3523 

50 062 

0 


INDEX 

ITEMP2 

•100 

REF 

5 

LAST 

1334 

23,3524 

52 737 

0 


DXCH 

SINCDU 

0101 

REF 

13 

LAST 

1335 

23,3525 

50 062 

0 


INDEX 

ITPMP2 

•102 

REP 

13 

LAST 

1335 

23,3526 

3 0766 

0 


CA 

CDUSPOT 

#103 

REF 

7 

LAST 

1044 

23,3527 

0 4767 

0 


TC 

SPCOS 

#104 

#105 

REP 

■ 74 

LAST 

1335 

23.3530 

23.3531 

0 0006 
7 4675 

1 

0 


EXTPND 

MP 

BIT14 

•10# 

REP 

14 

LAST 

1335 

23,3532 

50 062 

0 


INDEX 

ITHMP2 

•lOT 

REP 

5 

LAST 

1334 

23,3533 

52 745 

0 


DXCH 

COSCDU 

•108 

REP 

15 

LAST 

1335 

23,3534 

10 062 

1 


CCS 

ITE4P2 

•109 / 

REP 

2 

LAST 

661 

23,3535 

1 3514 

0 


TCP 

OUICTRIO +4 

•1091 

REP 

12 

LAST 

1335 

23,3536 

3 0061 

0 


CA 

ITPMPl 

•110 

•1101 

REP 

341 

LAST 

1294 

23,3537 

23,3540 

0 0003 
0 0000 

1 

1 


RBLINT 

TC 

A 


INHINT SINCE MP USES THE SAME TEMPS 


SCALE DOWN TO MATCH INTEBPREIER OUTPUTS 





our* 

L 

mil 

mi3 

mi4 

mis 


AStfieLB BEVISiai 249 OP AOC PROQRAM C0U)S3U3 BY NASA 2021111-041 

KMeaeD flicwt si»boutinb3 


20’35 OCT. 28,1988 SATRAP .007 PACE 1338 
U»US PAOB NO. 4 Bo S3 


•IHBS8 INTCRFACB BOOTINES ^WKB IT POSSIBLB TO CALI, AX4SB+T, BTC., IN 
INTBSPRETIVE. later, where POSSIBLB, THEY WILL BE H,IMINAtED. 




NBS4 WILL BE THE FIRST TO 00. 


IT aiOULD NOT BE USED. 


tll6 





2393541 

T7620 

0 K83f4 

STU 


911T 

BBP 

3T 

LAST 

1311 

23,3542 

00047 

1 


X2 

•118 





23,3543 

76740 

0 

IJ<C,i 

VLOWWt 

•119 

8EP 

56 

LAST 

1329 

23,3544 

00050 

1 


SI 

•120 





23,3545 

oooot 

0 


0,1 

0121 

8BP 

14 

LAST 

1335 

23,3546 

24767 

1 

STOVL 

CDuspor 

0122 





23,3547 

00041 

1 


320 

0123 





23,3550 

77624 

1 

CALL 


•124 

SBP 

2 

LAST 

44T 

23,3551 

47572 

1 


TH3ANB3N 

•12S 





23 , 355 2 

34 041 

0 

stcau. 

32D 

•126 

BBP 

38 

LAST 

1336 

23,3553 

00047 

1 


X2 


BASE ADDRESS OP THE CDU ANGIBS IS IN Si 


VBCTOa TO BE TRANSPORTED IS IN 32D 


SINCE T1«RB«S NO STGOTO 


80127 THESE INTERFACE ROUTINES ABE PEfWANENT. Ali, RESTORE USER«S EBANK 

80128 3BTTIN0. ALL ARE STRICT INTERPRETIVE aiBROUTlNES, CAIJJ® USING SCA1J,A, 

80129 BCTJHNINO VIA QPRBT. ALL EXPECT AND RETURN THE VECTOR TO BE TRANSPOB- 

80130 MBD INTERPRETER-STYLE IN MPAC 




1 


/ 3 5 i ^ 


B0131 TRC»S>IMH AND TRCMWBSN BOTH EXPECT TO SEE THE 2«S CCMPLE^T ANCH^S 

K013Z at CDUSPOT (ORDER Y Z X, AT CBuSPOT, CJXISPOT *2, AND OXJSPOT +4 





0 


H0133 LOCATIONS NEED NOT BE zERCED) . TB3+NBS1 DOES THE NB TO Sf IBANSPOR- 
R0134 MATION 





/ 5 3 4 - 5 




/ 3 ? -■ C_ 


CnjtNBSI DOES ITS TSANSFCm*TICN USING THE PRESENT CCNTENTS CF 

the cdu counters, oweiwise it is like tro+mbsi. 

axH^StlB IS THE CCHPLeeJT OP CDU+NBSN. 


01382 

01363 BEP 2 LAST 1333 

01364 REP 1 


23.3554 TTT76 1 OXlt'StlB EXIT 

23.3555 0 3442 0 IC 

23.3556 1 3561 1 ICP 


01 3T 

0138 REP 2 

0139 REP 3 

0140 REP 42 

0141 REP 1 

0142 REP 244 

0143 

0144 REP 55 


LAST 1333 
LAST 1145 
LAST 1174 

LAST 1333 

LAST 1334 


23,3557 

23.3560 

23.3561 

23.3562 

23.3563 

23.3564 

23.3565 

23.3566 


77776 1 
0 3450 0 
0 7501 1 
4 6214 1 
0 3803 1 
0 6006 1 
43575 1 
00123 1 


1K»SNNB EXIT 
TC 

C*{^4Wl TC 
CS 

C+»4W2 TC 


CDUTRIGS 

C4M44N1 


CD4TR4GS 

MPACVBUP 

THREE 

AX+SB+T 

INTPHET 


AX*SR*T EXPECTS VECTOR IN VBlF 
SIGNAL FOR SM TO NB TBANSPORi'lATICN 


VLOAD RVO 
VBUP 


0145 23,3567 77776 1 eiXI+NBS4 EXIT 

0146 REP 3 LAST 1336 23,3570 0 3442 0 TC OXrrRIGS 







RSVISION 249 O' AOC PSOOBAM COLOSSUS W NASA 2021111-041 20’35 OCT. 28,1908 SATRAP .007 PA® 1337 

PORBBED PLICHT S^HDUTINES 0«WS PAOB NO. 5 Eo S3 


014T 

BBP 

1 


23,3571 

1 

3574 

0 

TCF 

C*M4*N3 

0148 




23,3572 

77776 

1 

TB04SB94 EXIT 


0140 

ME 

3 

LAST 1338 

23,3573 

0 

3450 

0 

TO 

CD*IR40S 

0150 

■BP 

4 

lAST 1338 

23,3574 

0 

7501 

1 

C4M44N3 TO 

HPACVBUP 

0151 ' 

BBP 

43 

LAST 1336 

23,3575 

3 

6214 

0 

CA 

1HBE8 

0152 

■BF 

1 


23,3576 

1 

3563 

0 

TCF 

at*t*S2 




PCB A3C4SBW 

SIGNAL FOB NB TO »« TBANSFOBMATICN 


4NBa44 ANO *94®* EXPGCT TO SEE THB SINES AND COSINES <AT SINOXJ 
AM) C08CDU) RATHER THAN THE ANGLES THEMSELVES. OIHBB»ISE THEY ARB 
like TB04NB9I AND THO*3M®. 

NOTE that JUST AS QOWTMGS NEED BE CALLED QJLY (WCB FOR EAW SERIES 
® THANSPOBMATIONS using the SAMS ANGLES, SO TOO (NLY Q® CP THO+NBS4 
AM) THWStra NEED BE CALLED FOR EACH ®RIBS. FOR SUBSEOlENT THANSEOB- 
HATICNS USE +NBS4* AND *94®*. 


0160 

0161 

BBF 

2 

LAST 

1336 

23,3577 

23,3600 

77776 1 

1 3561 1 

*94«* 

EXIT 

TCF 

C4I44W1 

0162 

0163 

BBP 

2 

LAST 

1337 

23,3801 

23,3602 

77776 1 

1 3574 0 

«B94* 

EXIT 

TCF 

C4M44N3 


AX*SB*T Ca®INES THB OLD 94® AND NB94. FOR THE NB TO 91 
THANSFOHMATICN, BnBR WITH >3 IN A. FOR SM TO NB, BITER WITH -3. 

HB vector to be TRANSPOBfBD ARRIVES, AND IS RETURffiD, IN VflUP. 

AX*SB*T EXPECTS TO FIND THE SINES AND COSINES OP THE ANSES CP ROWTIW 
AT SINCDU and COSCDU, IN THB ORDER Y Z X. A CALL TO CD+TWGS, WITH 
the 2«S CCMPLENKNT angles (ORDER Y Z X) AT OXISPOT, WILL TAKE CARE CP 
THIS HEBE IS A SAMPLE CALLING SEOUENCE*- 


CDumlGS 

THH0B 

AX*SB*r 


THREE* FOR NBSM) 


the call to CD*1W0S NffiD NOT BE REPEATED, WHBI AX*SB*r IS CALLED MORE 
than once, UNLESS THE ANGLES HAVE (HANGED. 

AX*SB+T IS guaranteed SAFE OILY FOR VECTORS CP MAGMITlDE LESS THAN 
UNITY A LOCK AT THE CASE TN WHICH A VECTOR ® GREATER MAGNITIDB 
HAPPais TO LIB ALONG AN AXIS ® THE SYSTEM TO WHICH IT IS TO BE TRANS- 
FORMED (XHVINCES (NE THAT THIS IS A RESHUCTKM WHKH MJST BE ACEEPTtD. 

rep 2 LAST 1333 23,380 3 54 142 1 Ax*SB*r TS DEXDBX 

23,3604 0 0006 1 EXTB® 

BBP 1 23,3605 22 145 1 0(01 HTHSAvER 


«eRB IT BBCQ«S H® LMiex OF INDEXES 


BEF 3 LAST 1337 
hep 4 LAST 1337 
HEP 44 LAST 1337 


23,3606 10 142 1 R*1L**P 

23,3807 4 0142 1 

23,3610 6 6214 0 


DEXDEX 

DEXDBX 

THBfE 


♦3 — S 0 
*2 — « 1 
♦1 — * 2 


-3 2 

-2 — * 1 
-1 —S 0 


m 


I 


Assa«l£ HBVI3IQM 24B CP AOC PROORAM COLOSSUS W NASA 2021111-041 
kwbred PLiatr stBROuriMBs 


m 


eiea 

0187' BBP 342 
0188 RBP 1 
0180 REP 1 

0100 RBP 158 

0101 HEP 122 

0102 

0103 REP 2 

0104 ' REP 56 

0105 REP 1 


LAST 1335 


last 1205 
last 1180 

LAST 60 

last 1335 


23,3811 0 0008 1 

23,3612 5 0000 1 

23.3813 3 3872 1 

23.3814 52 144 1 


23,3615 

23,3816 

23,3617 

23.3620 

23.3621 
23,3822 


3 4712 1 
54 130 1 
0 0006 1 
5 0143 1 

4 0123 0 
1 3624 0 


8106 HEP 123 lAST 1338 23,3623 52 131 


0107 REP 863 LAST 1334 

0108 REP 1 

0100 REP 3 LAST 1338 

0200 REP 78 LAST lisi 


23.3624 

23.3625 
23,3628 
23,3627 


52 155 
3 3670 
6 0143 
54 116 


UX3P2 

LOOPi 


0201 

RBP 

21 

LAST 1160 

0202 

RBP 

5 

last 1337 

0203 

rep 864 

last 1338 

0204 




0205 




0206 

HEP 

665 

last 1338 

0207. 

HEP 

1 


0208 

HEP 

30 

last 1335 

0200 

REP 

70 

last 1338 

0210 




0211 

REP 

124 

last 1338 

0212 

REF 

4 

last 1338 

0213. 

RBP 

57 

last 1338 

0214 

REP 666 

last 1338 

0215 

REP 

22 

last 1338 

0216 

REP 

667 

last 1338 

02l7 

REP 

2 

LAST 1338 

0218 

RBP 

3 

last 1338 

0210 




0220 

REP 

125 

last 1338 

0221 

RBP 

5 

last 1338 

0222 

REP 

58 

last 1338 

0223 

RBP 

126 

last 1338 

0224 

REP ; 

343 

last 1338 

0225 

REF 

1 


0226 




0227 

RBP 

8 

last 1338 


23,3630 

0 7056 0 

TC 

DMPSUB 

23,3631 

10 142 1 

CCS 

dexdex 

23,36 32 

52 155 1 

DxCH 

MPAC 

23,3833 

1 3636 0 

TCP 

♦3 

23,3634 

0 0006 1 

Extend 

23,3635 

4 0155 1 

DCs 

MPAC 

23,3836 

52 134 0 

DxCH 

TEHMiTMP 

23,3637 

3 6211 0 

CA 

SIX 

23,3640 

26 116 0 

ads 

adohwd 

23,3641 

0 0006 1 

Extend 

23,3642 

5 0130 0 

INDEX 

BuP 

23,3643 

5 0143 1 

INDEX 

DExi 

23,3644 

3 0123 1 

DCA 

vaup 

23,3645 

52 155 1 

DxCH 

MPAC 

23,3646 

0 7056 0 

TC 

DMPSUB 

23,3647 

52 155 1 

DxCH 

MPAC 

23,3650 

20 134 0 

DAS 

TElWiTMP 

23,3651 

52 134 0 

DXCH 

TEHWitmp 

23,3652 

20 001 1 

DDClilL 


23,365 3 

SO 130 0 

INDEX 

BUP 

23, 3854 

50 143 1 

INDEX 

DEXI 

23,3655 

52 123 0 

DXCH 

VBUF 

23,3656 

52 131 0 

DxCH 

BuP 

23, 3657 

10 000 0 

CCS 

A 

23,3660 

1 M23 1 

TCP 

LOOP2 

23,3661 

0 0006 1 

EXTEND 


23,3662 

26 142 1 

DI.M 

DEXDEX 


20 ’35 OCT. 28,1068 SATRAP ,007 PAOB 1338 
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EXTE!© 

INDEX A 
DCA INDEXI 
DXCH DBXI 

CA Qffi 
TS BUP 
EXTH® 

INDEX DBXI 
DCS V0UP 
TCP LOOPi 

DXCH BuP 

DXCH MPAC 
CA 3INESLOC 
AD DEXI 
TS ADDRUD 


really BE A subtract, AND VICE VERSA 
LOVDINO vector CCMPCUaiT, STORING INDEX 


MtTIPLY BY SIN(CDUANOLE) 
NBa4 CA® 

S1«B CA® 


SINCaj AND COSCDU (EACH 6 WORDS) KJST 
BE CCKSECUTIVE AND IN THAT ORDER 


MULTIPLY BY CQS(CDUANGIE) 



loading index, storing vector COIPCHRIT 
■CAU® THATV.S WHERE THE INDEX NOW Is 

DECRR^«i^^T .HACWITVOE P®®HVING SI(14 




0128 

0210 

0230 

0231 

0232 

0233 

0234 

0235 

0236 
023T 




I 
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20’35 OCT. 28,1068 SABWP .OOT PAGE 1340 


P0240 

1(0242 

1(0244 

1(0248 

I(024T 

1(0248 

1(0249 

1(0250 

1(0251 


inSIUS PAOS MO. 8 Bo S3 

„ 



00S( ICHIseCIMOA) 


♦ 

■ ♦ . 

,♦ -COS( IOAIIANIMM) 
* SIN(ICIA) 


-SINdOAlSCIMEH) 41 
♦ 

SIN( ICniXAMIMQA) * 

cost lOK) * 


0252 




14,3405 


»»»c 

14 

0253 

BBP 

1 


23,2000 


»iui; PQfPLlTl 

0254 




23,3875 


bank 


0255 




23,3875 

41345 0 

JSCDUHES DLCMD 

DMP 

0258 

HEP 

7 

WST 584 

23,3676 

03212 0 


DlieiA3>l 

025T 

FHP 

4 

LAST 718 

23,3677 

00745 1 


OOSDDUY 

0258 




23,3700 

41325 0 

POOL 

DMP 

0259 

HEP 

8 

last 1340 

23,3701 

03216 1 


D11B1AS4 M 

0280 

RHP 

4 

LAST 718 

23,3702 

00737 1 


SIMCDUY 

0281 




23,3703 

77621 1 

BDSU 


0282 




23,3704 

77671 1 

DOV 


0263 

REP 

7 

last 930 

23,3705 

00747 0 


COSCDUZ 

0264 

RE!P 

6 

last 586 

23,3706 

03204 1 

STCBE 

DCCU 

0285 




23,3707 

72405 0 

DMP 

SLl 

0286 

RHP 

4 

LAST 718 

23,3710 

00741 0 


SIMCDUZ 

026T 

1 



23,3711 

77621 1 

BDSU 


0288 


9 

LAST 1340 

23,3712 

03214 0 


OTHEWS1 +2 

0269 

HEP 

7 

last 1340 

23,3713 

17206 0 

STCDL 

DCDu *2 

02TO 

REP 

10 

LAST 1340 

23,3714 

03212 0 


l»lHBI«g4 

0271 




23,3715 

65205 0 

DMP 

PDDL 

0272 

REP 

5 

last 1340 

23,3716 

00737 1 


SIMCDUY 

0273 

REP 

11 

last 1340 

23,3717 

03216 1 


DIHEIASM +4 

0274 




23,3720 

43205 1 

DMP 

CAD 

0275 

REP 

5 

LAST 1340 

23,3721 

00745 1 


CQSCDUY 

0276 




23,3722 

77752 1 

3Ll 


0277 

REP 

8 

last 1340 

23,3723 

03210 1 

STORE 

DCDU *4 

0278 




23,3724 

77616 0 

RYO 



SCALE 








i 
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*0035 

*0038 


*0037 

0038 

0039 
*0040 

0041 

*0042 

0043 

*0044 

0045 

*0048 

0047 

0048 

0049 
*0050 

0051 

0052 

0053 
*0054 

0055 

0058 

*0057 

0058 

0059 
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ROOOl 

R0603 

ROOOS 


THE TPP anROrriMBS MAY BE USD) IN EITHER EARIH Ol MOM CSnSSED COOBDINATES. THE IPP ROUTINES NEVER 
KNOP WIICH ORIGIN APPLIES. IT IS TKEUBjffiWHO KNOfS, *» 00 SUPPLIES HCHE. VCJffl AND l/SOmHI) - *T THE 
appropriate scale level for the PBOBra ^MARY BODY. 


Roooe 

earth origin 

poamiiBK 

-29 

leiBB 

ROOOT 


VEUKTHie’ 

-t 

wiERsAsan'isBcaiD 

R0009 


I'iSinKMeri) 

♦IT 

BCSnCS SO/SBTERS CcBS)) 

ROOll 

MOCN ORIGIN 

posnniap 

-2T 

leiBB 

R0012 


vBLactnBf 

-5 

IKIBBSAXNTI SBCCMIS 

R0014 



♦14 

SORRCS SO/>BTERS CUBED) 


R0018 

R0018 

II0020 

E0021 

R0023 

1(0025 

1(0027 

1(0029 

ROOSl 

1(0032 

1(0034 


ALL data PRCVIDHJ TO AMJ RECEIVED FRHHANYr TTip SUBRDUTIIS WUL. BE AT Q® OP THE LBVH,S ABOVE IN ALL CA®S 
EB PHEB pall TRB IS RBIUIWED IN CEN[IIB2CCNDS AT C-28>. PCOSAM WP/CXKIC WILL G&ERATE VOtB/lCDV AND ’ 
LEAVE IT IN VO®. AT ( ♦IQ) IP EARTH (EHniN AND f+g) IP MOW (SUGIN. 

THE user mist STORE THE STOE! VECTOR IN KHB, VtBB AND MJ IN THE FORM l/SORKMU) IN TPF/RIHI 
AT THE PROPER SCALE BEFORE CALLING HWXCmiC. SINCE RQ®, VIVS ARB IN THE EXTENDED VERB STORAGE AREA 
THE USER HIST ALSO LOty OUT THE EXTETEHI) VERBS, AJO H»4 Wt®! PINIaiH). ’ 

PROGRAMS CALC/TFP AND (CaUT/TPER ASSIIB THAT 1® TEIMINAL RADIUS IS LESS THAN THE PfBseiT 
RADIUS. THIS RESTHICTIW CAN BE RB>(OOSD BY A 15 W CODING QCWB, BUT AT PRESSIT IT IS NOT DBBABD NECESSARY 


THE POLOarlNG ERASABLE aUANminlli» ABE USED BY HB WP HDUTINBS, AND ARB LOCATED IN THE Puai LIST. 


B* 

M’ 


IS USED FOR EARIH ORIGIN SCALE 
IS USai FOR MOCN ORIGIN SCALE 



THPar = 

llSP BIT! 

0 = CALCTPP 

1 = CALCTPEH 

0012 

THTOELO = 

lOD 

02-01 

E* (-16) M’ (-15) 

0014 

EMAOi = 


abval(rn) m 

B’ (-29) M’ (-27) 


ffiER = 

MD 

PERIGEE RADIUS M 

E’ (- 29 ) M* (-27) 

0018 

THPOl = 


R.V / SQBTCMUB) 

E' (-18) M’ (-15) 


»HLP/2 


SINCIHETA) /2 


0018 

ODELP/a = 

I4D 

COS(THBTA) /2 



B8PO = 

160 

APOIEB RADIUS M 

E* (-29) M* (-27) 

0020 

NBIEHM = 

ISO 

•TEIMINAL RADIUS M 

E’ (-29+NH) 





M» (-2T+NH) 

0022 

HIEIM = 

180 

TEIMINAL RADIUS M 

E> (-29) M* (-27) 

0024 

TPPVSO = 

zao 

-fV SOJARHD/MU) 1 /M E* t20) M’ da) 

0028 

THPl/ALP = 

zs> 

sen MAJ AXIS M 

E’ (-22-2 NA) 





M’ (-20-2 NA) 

0030 

THEKTALP = 

240 

SQRPCALPA) E’ (io»NA) M’ (g^NA) 

0032 

THPALPA = 

260 

ALPA i/M E* (28-NH) M’ (24-NR) 

0034 

TRPNP = 

280 

»« LATUS RECTIM 

M B’ (-3S*-2 NR) 





M’ (-38<-2 NH) 

0038 

THP/RIHJ = 

300 

l/SORTIMJ) 

E’ (IT) M* (14) 

0040 

WWAO = 


present radius M 

E’ (-29+NH) 





M’ (-27+NR) 

0042 

nwy = 

34 O 



0044 

1IW1L4 = 

360 

TEMPORARY 
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L Tlie CP PlffiB PALL 



U8BIUS PAOe NO. 2 BO S3 


AOOSO 

AoOOl 

A0062 

A00S3 

A0064 

A006S 


BSaiSIBRS Si, S2 Abe untouched by any WP SUBBOTTINB 

INDEX BBOISIEHS XI, X2 ABE USED BY ALL TFP SUBROrriNES. THEY ABE ESTAB- 
LiaeD IN TPP/CONIC AND HIST BE PfffiSBIMQ) BEIVIEEM CALLS TO SUBSEQUENT 
SUBROrriNES. 


-NH 


C(X1) = NORM COUNT CP BMAO 
C(X2>= NORM CCUNT OP SORTCABSIALPA) ) 




ASSSetB IBVISICM 2«« OP AOC PBOQHAM C0U>3SU3 BY NASA 2021111-041 20*35 OCT. 28,1988 SATOAP .OOT PAOB 1343 


TIMB OP PBBB PMl, 


tSBIUS PAOB NO. 3 BO S3 


SlSBOlTrlNB WMB* 
m) NO* 0 
HCD BY* BR BAUW 
WD NO* 1 
HDD NO’ 8 
MCB NO’ 3 


WPCCMIC 


DATB’ 01.29.81 

UB SBCTICW* TOe OP FBBB PALI, 


m mnwsmwBR 

1 KD BY* in BAIRNSPAWBR DATB* 11 APB 6T 

2 MCD BY’ HR BAIRNSPAWSR DATB’ 21 NCV 8T ADO MOCK HJ. 

1 MOD BY’ BR BAIHNSPATHER EWTB’ 21 MAR 68 ACCEPT DIPPBRBIT EARIH/MOCK SCALE S 

VL DBSCBIPTICK’ WIS SUBBOrrlNE IS CALLHJ TO CCMPITIB THOSE CCKIC PARAMETERS REOUIRED BY THE TEP 

amUUrINBS and to ESlABLiai THH^ in the puai list area, the PARA*TBR3 are listed IHDER OTIPUr. 

W bouatkms are 


ADO MOCN HI. 

ACCEPT DIPPBRaiT EARTH/MOCN SCALES 


functional OBSCBIPTICK’ 


H = R«4VN 

UCP = H.H / HI 

ALFA = 2/HN - VN.VN / HI 


ANGULAR MOMOnUM 

mUt LATUS HBCnM 

RECIPROCAL fflMI MAJ AXIS, SIGNED 


AW ALPA is POS POB ELLIPTIC ORBITS 
0 POB PARABOLIC ORBITS 
NBO FOR HYPERBOLIC ORBITS. 

SimXjriMB ALSO CCMPUTBS AND SAVES FMAO. 

CALXjU^Q 

TPPCodC Expects caller to enter with correct obavitaticnal ccnstant in mpac, in the form 

l/SOftWHJ). PROGRAM WILL SAVE IN TEP/HTMU . THE SCALE IS DBXEiWINED BY WHETHER EARTH (SI MCX3N 
CRIOIN IS USHT. THE CALLER MUST LCKIC CUT THE ExTBfflED VERBS BEPCSIE PR£VIDINQ STATE VECTOR IN RCNE, 
VO« AT PROPER SCALE. THE EXT&IDH) VERBS HIST BE RESTORED WHEN THE CALLER IS PINIaiBD USING THE 
IFP RDOTINES. 

BTIBY POINT TEPCCNMU EXPECTS THAT TEP/RTHJ IS ALREADY LOADED. 

TO SPECIFY HI’ DLQAD CALL IP HI ALREADY STOBS)’ CALL 

YOURHI 1/RTHJ E’ (IT) M’ (14> TEPCOIHJ 

TPPCOKIC 

mSHLOC = iOL»0, arbitrary ip lEO ISD 

subroutines CALLED’ NONE 
NORMAL EXIT MODES’ BVO 
ALARMS’ NOME 

OUTPUr’ UK FOLLOWING ARE STORED IN THE PUSI LIST AREA. 

»BGl E’(-29) M’(-27) M RN, PRESENT RADIOS LENGIH. 


HRMAG B’ (-29«NR) 
M* <-27*NR) 
XI 

TFFKP E’ <-38*2NR) 


M HMAO, NOBMALIzS) 

-NR, Nam COUNT 

M LCP, SEMI LATUS RBCnM, WEIGHTED BY NR. 


M’ (-38+2NB) 
TfV/KBV E’(1T» M’(14) 

TFFVSO E’(20) M’(18) 

TFFALFA E’ (28-NR) 

M’ (24-NR) 

tfphbwp e’ (10+na) sc 

M’ <9*NA) 


1/SQRT<MU) 

-(V SO^)’ PHEsaiT VHXOITY.NOBtlZED. 
ALPA, WEKSnBD BY NR 


SQRTYALPA), NCSMALIzED 


P(Sl VGAMCALC 


FOR VGAMCALC 


Ill 


ASSBOB BBvriSKW 249 OP AOC noOOAH COLOSSUS BY NASA 2021111-041 
TIMS OP PRBB PALL 


Wt31 

ni3z 

■0133 

■0134 

■0135 

■0130 

■013T 

■0138 

■0140 

■0142 

■0144 

■0145 

0148 

0147 

0148 


RBP 


33.3TT2 

27.2000 

27,2750 


aWK 33 
®1L0C TOP-PP 

bank 


0149 RQ' 


0150 

0151 

BSP 

5 

LAST 768 

0152 

0153 

0154 

tep 

16 

LAST 744 

0155 

0156 

BfiP 

1 


0157 

BEP 

89 

LAST 1310 

0158 

BEP 

4 

LAST 769 

6159 

0160 

BSP 

11 

LAST 744 

0161 

REP 

6 

LAST 1344 

0162 

0163 

REP 

2 

LAST 90 

0164 

A0165 

0166 

BEP 

5 

last 1344 

0167 

A0168 

REP 

2 

LAST 768 

0169 

0170 

REP 

1 


0171 

REP 

e 

LAST 1344 

0172 

0173 

REP 

3 

last 1344 

0174 

A0173 

0176 

REP 

2 

LAST 768 


COUNT* 81/7PP 

5 LAST 768 27,2750 00037 0 TPPCCNIC STORE TPP/RINU 


27.2751 

27.2752 

27.2753 

27.2754 

27.2755 

Zr.ZTM 

27,2757 

27.2760 

27.2761 

27.2762 

27.2763 

27.2764 

27.2765 

27.2766 

rr.zni 

27.2770 

27.2771 

27.2772 

27.2773 
21, zn* 
27,2775 
21,2116 


53575 0 
02327 0 
77725 1 
00045 0 
00015 0 

77701 1 
00047 1 
24041 1 
02335 0 
77761 1 
00037 0 
02372 0 

47381 0 
00041 1 

47572 1 
14035 1 


TPPCOWU VUMD 


POOL 


STORE 


UNIT 

RCNE 

36D 

IMAQi 


NOW 

XI 

STtVL NIMAO • 
VCNB 

VX3C 

IPP/RIMU 
STORE VCNE, 

VXSC VXV 

NfWAO 

VSLl VSO 
STOOL IPPNP 


15322 
6 3271 
00041 
02372 
57438 
00025 


DIV 


7PP1/4 
POVL 
NIMAO 
VCNEo 
VSO DCCMP 
STORE TPFVSO 



*2 -NA, NOiM COUNT 

TPPl/ALP B» C-22-2NA> siQSD SEMI WAJ AXIS. tTEianED BY NA 
M* (-20-2NA) 

POattXX! AT FDL»o 

THE P0LLO4INO IS STORS) IN OQ^ERAL ERASABLE 

B’‘io> m*{9) v/rtihj), nohmalit® velocity 

ERASABLE INITIALIzATICN HHniTpm* 

Raw E>(-29) iri-ZTl M STATE VECTOR 

voffi b*(_t) m/cs state vector 

mnar,.! ®’‘1T» M’C141 1/RT<CS SO/M Cl»Bl 

debris* QPRBT, FDL*0 ... PDL,.3 
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lept by caller 

LBPT BY CALLER 
IP BnER VIA TPPCCNMJ. 


l/SQRWHI) 


E’ Il7» . M* (14) 


COB herb with tpfhtmu loaded 
SAVED HN. M E* (- 29) M* (-27) 
UB/2 TO PDL+0, *5 
MACNITACB 

M B* (-29) M* (-27) 


-NR 

IMAO M E* C-29+NR) M* (_27*NR) 
SAVH) VN. M/CS B* (-7) M* (-5) 


E* (IT) M* 
VN/SQHT(J4J) 


(14) 

E* (10) 


M* {9) 



27,2777 43257 0 


SR4 


DAO 


B* (-29+NH) M* (-27+NR) 

OR/2 PRCM PDL 

before* B>(-19+NR) M*(-ib+NB) 

LC p M E*(-38+2NB) M*(-36+2NR) 

SAVE ALSO POB vGAMCALC 

(2/IMAG) 1/M B*(28-NR) M’(24-NH) 

IMAO M E’(-29<-NR) M*(-27+NR) 

SAVED VN. E* (10) M* (9) 

KBBP MPAC+2 HCNEST FOR SORT. 

-(V SO/MJ) B*(20) M’(18) 

SAVE FOR VOA-MCAIX 
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Assaeu! RBVISIW 249 OP ACC PROGRAM OCLOSSUS BT NASA 2021111-041 


I, TIMS CP PBBB PAU, USSihS PADS NO. S BO S3 


•ITT 




27,3000 

20573 

1 



0 -8,1 

get -VSO/MG E’(26-NH) M*(24-NH> 

tlT8 




27,3001 

77628 

Q 


3TADR 



Aom 










2/IMAO prcm rou*2 

•180 

REP 

1 


27,3002 

77744 

0 


STORE 

IPPALPA 

ALPA l/M B’(28-NB) M*(24-NH) 

•181 




27,3003 

41457 

1 


SL* 

FU9I 

T&fP SAVE ALFA E’(20) M’(18) 

•182 




27,3004 

20173 

0 



0 -6,1 


•183 




27,3005 

75446 

0 


ABS 

SORT 

E‘(10) M’(9) 

•184 




27,3008 

77701 

1 


NORM 



•185 

REP 

39 

LAST 1338 

27,3007 

00050 

1 



X2 

X2 = -NA 

•188 

ter 

1 


27,3010 

00031 

0 


STORE 

7PPR1ALP 

scum ABSIALPA) l E’Cio+NAI M’( 9tNA) 

•18T 




27,3011 

75316 

1 


Dsa 

SICM 

NOT SO AOXBATB, BUT CK 

A0188 










ALPA prcm PDL+2 E’(20) M’(18) 

•189 




27,3012 

55254 

1 


BzE 

Bnv 

SET 1/ALPA =0, TO SHOW SMALL ALPA 

•190 




27,3013 

57015 

1 



♦2 


•191 

REP 

2 

LAST 1344 ■ 

27,3014 

15322 

0 



WP1/4 


•192 

REP 

1 


27,3015 

00027 

1 

♦2 

STORE 

TPPl/ALP 

1/ALPA E'{-22-2 NA) M’(-20-2 NA) 

•193 




27,3018 

77616 

0 

DlWPCNIC R»rt3 



A0194 










39 W 



ASS»«B RBVISKW 249 OP AOC prOQrAM COLOSSUS BY NASA 2021111-041 20*35 OCT. 28.1988 SAmAP 


PACK 1348 


TIM8 OP PBEB pall 

SlBHQUriNE NA** WPHP/HA 
tTD NO* 0 

MOD BY* BH BAIIWSPAIHEH 

MCD NO* 1 MCB BY* 

MOD NO* 2 MOD BY* 


USBa<8 PAOB NO. 


DATB’ 01. IT .67 

UB section* T»e OP PBBB PALL 


RR BAIRNSPATHBR 
RR BAimsPAIHBR 


11 Apr 8t 
21 HIR B8 


2 MtB BY RR BAimsPAIHBR DAlB* 21 M»R B8 ACQBPT DIPPERENT EARm/MOON SCALES 

*LSO IMPROVE accuracy OP RAPO 

PlWCriCNAL^^^IraiCN UfflD BY CALClPER AND TPP DISPLAYS TO CAIAJLAIE PBRIGBB RADIUS AND ALSO 

APOCBB RADIUS FOB A GEffiHAL CONIC. 

PBOtaWM GIVES PERIOae radius as APOOeB radius is OIVBl BY 

f / ;^LPB 

Vnctc 2 

E = 1 - P ALPA 

IP RA IS negative or aiQfS DIVIDE OVERFLOW, THBI RA = POS4AX BECAUffl 
1- AP OOEB RADIUS IS NOT ^EANINGS\JL FOR HYPERBOLA 

2. Apogee radius is not defined for parabola 

3. apogee RADIUS ExCBTOS THE SCALING FOR ELLIPSE. 

calling BBQUIRES the Siorai RBCIproCAL MAJ axis, ALPA, and »« LATOS RBCnW AS DA-BA. 

TPFRP/RA 

PUSHLOC = POL+O, arbitrary IP LEO iqD 
CCMPAC) INSPECIPIHJ 

SlBROUTINES CALLED* NCNE 
NORMAL EXIT MODE* RVO 

IP aXIPSE, WITHIN NORMAL SCALING, RAPO IS CORRECT 
OlHErarlSB, RAPO = POS4AX 

alarms* none 

unpur* STORED in njsi list area, scale op output agrees with oaba supplied to tpf/ccnic. 

M’0-27) M PBRICEE radius DESTROYED BY CALCT^/CALCTPEH, TPFTRIG 

M APQOTE radius WILL BE DESTROYED BY CALCryp/CALClPER 

IVStLaI.' at PDL-*-0 

erasable initialization required ’ 


TFPALPA E*(26-NH) 
M*(24-NB) 

TPPNP E* (-38>2NR) 
M* C-38»2NR) 


DEBRIS* 


XI 

X2 

QPBBT, 


M 1/SEMI MAJ AXIS 

M LC p, S&1I LAIUS RBCnjM 

-NR, NOEW COUNT OP BMAG 
-NA, NORM COUNT OP ALPA 
PDL»1 


LEFT BY TPFCCNIC 

LEFT BY IFFCONIC 

LEFT BY TPPCCNIC 
LEFT BY TPFCCNIC 




20’33 on. 28,1068 SAIBAP .OOT PAGE 134T 



ASaB«L8 RSVISION 249 OP AOC PfiOORAM COLOSSUS BY NASA 2021111-041 



I. 

tub op free pall. 







P0249 










■250 




•020 



BAPO 

X 

160 

•251 




•018 



BPBR 

X 

140 

A0252 








, 


•253 




21,3011 

41345 

0 

TPPRP/RA DLOAO 

DMP 

■254 

mf 

2 

LAST 1345 

21,3020 

00033 

1 



IFPALFA 

•255 

•BF 

3 

LAST 1344 

21,3021 

00035 

1 



TFFNP 

■255 




21,3022 

51451 

0 


SR4 

DCXMP 

•25T 




21,3023 

20511 

0 



0 -80,1 

•258 




21,3024 

51415 

0 


DAO 

ABS 

A0258 










•280 

HP 

4 

LAST 833 

21,3025 

11351 

0 



DP2(-4) 

■2>1 




21,3026 

43366 

0 


SORT 

DAO 

•2>2 

HF 

3 

LAST 1345 

21,3021 

15322 

0 



lPPl/4 

■2S3 




21,3030 

55206 

0 


PUSI 

BD(V 

•2S4 

HBP 

4 

LAST 134T 

21,3031 

00035 

1 



TFFNP 

•2S5 




21.3032 

53651 

0 


8R« 

SR4 

•2e« 




21,3033 

20601 

1 



0,1 

■2ST 




21,3034 

20512 

0 



0 -1,1 

•2SS 

RBF 

3 

LAST 514 

21,3035 

14011 

1 


STODL 

BPBR 

Ae26S 










•2T8 




21,3036 

41005 

1 


DMP 

B(V8 

•2T1 

REP 

2 

LAST 1345 

21,3031 

00021 

1 



TFFl/ALF 

•2T2 

EBP 

11 

LAST 1303 

21,3040 

51343 

1 



tcjdanzig 

■2T3 




21,3041 

53654 

0 


BzE 

9A 

■2T4 

R8P 

1 


21,3042 

51051 

1 



MAXRA 

■2T5 




21,3043 

51603 

0 



0 -5,2 

am 




21,3044 

40051 

1 


SLP 

BGv 

•2TT 




21,3045 

51516 

1 



0,2 

azn 

■BF 

2 

LAST 1341 

21,3046 

51051 

1 



MAXRA 

•219 




21,3041 

11644 

1 


BPL 


■280 




21,3050 

51053 

0 



♦3 

■2S1 




21,3051 

11145 

1 

MAXRA 

DLOID 


•282 

EBP 

4 

LAST 833 

21,3052 

11363 

1 



NEARCNB 

•283 

HP 

1 


21,3053 

00021 

1 

♦3 

STORB 

BAPO 

■284 




21,3054 

11616 

0 

DlWPBPBA BVO 



UOMoS PACE NO. T BO 83 


APOOBB BAOIUS M B>(-2») M'f-ZJ} 
PBRIOBB RADIUS M B*(-29) M’(.2T) 


AUW l/M B’{26-NB) M*(24-NB) 

ID P M E>(-3B*2NR) M*I-36*2NR) 

AUA P C-i2*NH) 

AlPA P (-4) 

fDCtMP Gives VALID TP RESULT FOB SORT) 
lABS PHOIBCTS SffitT IF B IS VERY NEAR 0) 

B SO = (1- P ALFA) (-4) 

(148) €-2) TO PDLtO 

ICP M E’(-384aW) M*(-38»2NR) 

(DOBS SB THE! SL TO AVOID OVFL) 

X1=-NR 

(EFFECTIVE SL) 

PERIGEE RADIUS H E’(-29) M’(-27) 

(14E) (-2) FRCH PDLtO 

B*(-22-2NA) M’(-20-2NA) 

Clear (vpii®, if ck. 

SET P094AX. IF ALFA=o 
-54N» 


»T POSAAX IF OVFL. 

COITLNUE WITH VALID BAPO. 

BAPO CALC IS NOT VALID. SET BAPO = 
POSMAx AS A TAG. 

APOGEE RADIUS M E’(-29) M’(.27) 




I 




ro288 

1(0288 

i(0290 

1(0291 

1(0292 

1(0293 

1(029S 

1(029T 

1(0299 

ROSOl 

R0303 

1(0305 

1(0308 

80308 

80309 

80311 

80313 

80314 
80318 

80318 

80319 
80321 

80323 

80325 

80328 

80327 

80328 

80329 

80331 

80332 

80334 

80335 

80336 

80337 

80339 

80340 
80342 

80344 

80345 


ass»«lb nev^isicM 249 op aoc paotawM caxissus by maA 2021111-041 
TIMS OP PHEB pall 

CAUJlveR / CMjCffP 


SlBKOiriNB NA»e 
MCX> NO* 0 
MOD BY* HR BAIRNSFATHER 

1*0’ 1 MOD W* HR BAUHSPAUCR 

I*® 80* 2 MOD W* RR BAIRNSPAtHBR 

1*0’ 3 MCD BY* HR BAIRNSPATHSR 

1*® 1*0’ 4 MOD BY* HR HAHWSPATKBR 

1*® NO* 5 MOD BY* RR BAIRISPAIHBR 


DAIB* 

.DATE* 

DAIB* 

DATE* 

DATE* 


21 M4R 67 
14 Apr 87 
8Jlt 87 
21 N(V 87 
21 M4R 88 


20*35 OCT. 28,1968 SATRAP .007 PA3B 1348 

UffilkS PAOS NO. 8 BO S3 

IMTB’ 01.29.67 

LOO SBCTICM* TD« CP PHEE PALL 


near earth mb and NBO TPP (OONEPAST) 
ADD variable MJ. 

accept dipfbrent earth/mocn scales 


PINOrifWAi ^ — T!!. "" — tx -t"** do j ixirruiuvni- EBBin/fMn SUAUSS 

PR^'* CAIAXATES THE PREE-PALL TIME OP PLiaiT FRM present POSITICN RN AND 

SPECIPIED by RIBBM . SUPPLIED BY THE USER. THE POSITION VECTOR 
^ ** either side op the CtNIC, But HTERM is CIMSIDERED CN the INBOUND SIDE 
ne bouaticns are 


02 = -SQRTIRIBtW (2-RTEIH ALPAI _ LCp) 

01 = IW.VN / SQRTIMJ) 

Z = MM / DBN 

l«*HE, IP inbound 

MM = RTEHM - RN 
DB( = 02tOl 

*M>, IP OUIBOUND 
MM = 02-01 

De»- = 2 - ALPA (RIBHM ♦ IMl . 


UNBOUND SIDE)) 


LEO ♦- LCE/SQRKALPA) 
LEO ♦- LCE/SQKMALPA) 
lEO ♦- l/SOKKALPA) 


LEO ♦- 2 LCE/ALPA 
LEO 2 LCB/SQflT<ALPA) 


LEO ♦- 2 LOS/SOBTIALPA) 
LEO +- 2 LCE 


IP 


RBI 

AM) 


ALPA zz ± 1.0 


(POR ALL ccNics Except ellipses having abscdel ecc ancm) o 90 deg) 


X = ALPA z Z 

TPP = (RIEIM +RN -2 ZZ T(X) ) Z/SQRT(MJ) 

Except ip alpa pnz, and ip tpp nbo, 

•mai TPP = 2 PI /(AIEA SQKTOAIEA)) ♦ TPP 



OR IP ALPA ZZ GEO 1.0 


(POR ELLIPSES HAVING ABS(DEL ECC ANCM) GEO go DEG) 


THBI 

AM) 


X = 1/ALPA Z Z 

TPP = CPI/SQRTCALFA) -02 tOi *2<X TCX) -D /ALFA Z) /ALFA SORTCMJ) 


•«RE TCX) IS A PCLYNCMIAL APPRQcLMATICN TO IHB SERIES 
Z 3 ,2 

1/3 -X/5 +X /T -X /9 ... <X ±10) 


CALLING SEOueNCE* TIW TO RIBBM 
CALL 

CALCIPF 

C(MPAC) = TERXIL RAD M 
for either, E’ (-29) M* (-2T) 

POR either, PuattEC = PDLx-O , ARBITRARY IP LEO eD 


TINE TO PERIGEE 
C»LL 

calctper 

CCMPAC) = PERIGEE RAD M 



ASSaVlB REVISION 249 OP ABC PROORAM COLOSSUS BY KASA 20211I1'04I 


timb op phbb fall 


20’35 CXJr. 28,1968 SATRAP .00? FAOB 1349 
USSibS PAOe NO. 9 Bo S3 


ajBaOUTINES CALLS)’ TIX), VIA ItlB 
NQRMU, EXIT MODE’ RVO 

HOnevBR, PROGRAN EXITS WITH ONE OP THE FOLLOPINO VALUES FOB TPF (-28) CS IN MPAC. USER MUST STORE. 
A. TPP= FLICWT TINE. NOEWAL CAffl FOR POSITIVE FLKHT TIEE LESS IHAN ONE ORBITAL PERIOD. 
b! (mis OPTICM IS NO LCWGEH USED.) 

C. WP = PQ®4AX. mis INDICATES THAT THE CCNIC FR(M THE PRBSS(T POSITION WILL NOT IffiTURN TO 
HE SPECIFIED ALTIUCE. ALSO INDICATES OUTBCIWD PARABOLA OB HYPERBOLA. 


C(MPAC) (-28) Cs 
IPPX (0) 

NRIBIW B’ (-29*NB) 
M’ (-2? ♦NR) 
TPPIEM B’ (-59+2f(H) 
M’ (-55*2NR) 


tine OP PLICHT, OB TINE TO PERIGEE 
X, 

Nl btebm, weighted by nr 


B’ (-59+2NB) LCP Z Z SGNiaElF) 

M’ (-55*2NR) LCp /ALFA SGN(a)ELP) 

TEFIPM = POL 36D AND WILL BE DESTROYH) BY .’UNIT’. 
E’(-29) H’(-2T) POL 12 NOT TOUCHED. 

B’(-18> M’(-15) POL 14D 

I E’(-16) M’(-15) POL too 


TPPOl B’(-16) M’(-15) 

TFPDELQ E’(-16) M’(-15) 
PUaiLOC AT POL+O 

ERASABLE INITIALIZATION RBOUIHED’ 
RONE B’(-29) M’(-27) 
V0NB« B’(4.10) M’(*9) 

BHAOl E’(-29) M’(-2T> 

C(MPAC)B’(-29) M'(-27) 


M STATE VECTOR 
VN/SQRTSMU) 

PRESENT RADIUS, M 

RTEIW, terminal RADIUS ISWTIH, M 


THE FOLLOWWS ARB STORED IN THE Pum LIST AREA. 

TPF/RTNU B’tl?) M’(14) 1/SQRT(N(U) 

NIMAO E’ (-29*NR) M IMAO, NORMALIZED 
M’ (-2? ♦NR) 

XI -NR, NOtW COUNT 

TPPNP E’ (-38+2NR) M LCp, S0MI LATUS RECTUM, WEKJIT NR 


TPPNP E’ (-38+2NR) 
M’ (-38*2NB) 
TPFALFA E> (26-NR) 
M’ (24-NH) 
TFFHTALP E’(10*NA) 
M’(9*NA) 


1/M ALFA, WEKHT NR 
3CHT(AtFA), NOtMALIZED 
-NA, NORM COUNT 

SIGNED SSIIMAJ AXIS, WEIGHTED BY NA 


tfpi/alf e’ (-22-»(a) signed semimaj axis, weighted I 
M’ (-20-aiA) 

QPRET, POL*0 ... PDL<-3 

RIEBM B’(-29» M’(-2T) RTERM, TEIMINAL RADIUS LPNGIH 

RAPO E’(-29) M’(-27) POL 160 (=NRIE[W) 

RPBB B’(-29) M’(-27) POL 140 (rTFPOl) 


LEFT FOB ENTRY DISPLAY TFF ROUTINES 
UEPT FOB B<TRY DISPLAY TFF ROUTINES 

LEFT for INTRY DISPLAY TFF ROUTINES 
LEFT FOB B(TRY DISPLAY TFF ROUTINES 


LEFT by user 
LEFT BY TFF/CGNIC 
LEFT by TFFCONIC 
LEFT BY USER 


LEFT by 
LEFT BY 

LEFT by 
LEFT BY 


iFKCOl IC , 
TFFCCNIC 

TFPCCNIC 

TFFCCNIC 


LEFT BY TFPCCNIC 
LEFT BY TFFCCNIC 


LEFT by 
LEFT BY 


TFFCCNIC 

TFFCCNIC 


*ssan£ RBvisKM 249 op aoc pgcxmM coujsaus by nasa 2021111-041 

TMB OP raEB PAU, 


20*3S CCr. 28.1B«a satrap .ooT pace 1350 
USibS PAOB NO. 10 Bo S3 


2 LAST 1350 

3 last T64 


e LAST T69 

3 LAST 1347 

4 last 1347 

7 LAST 1350 

5 last 1347 


last 1350 


12 LAST 1347 

3 LAST 770 

4 LAST 1344 

17 LAST 1344 


27,3055 

77614 1 

calctper setoo 


27,3058 

03436 0 



tefsn 

27,3057 

57062 1 



♦3 

27,3060 

77814 1 

CALCTFF 

clear 


27,3061 

03676 0 



TEFSW 

27,3062 

00023 0 

♦3 

STORE 

RIEIM 

27,3063 

77657 0 


SLA 


27,3064 

20201 0 



0,1 

27,3065 

00021 1 


STORE 

NRIEIM 

27,3066 

44205 0 


BMP 

BDSU 

27,3067 

00033 1 



TEFALFA 

27,3070 

15322 0 



TPF1/4 

27,3071 

41206 0 


puai 

DMP 

27,3072 

00021 1 



NRIEIM 

27,3073 

53725 1 


POOL 

SRA 

27,3074 

00035 1 



TEPNP 

27,3075 

20573 1 



0 -6,: 

27,3076 

43276 0 


0CO4P 

DAD 

27,3077 

77657 0 


SRA 


27,3100 

20601 1 



0,1 

27,3101 

71214 0 


BOFE 

DLOAD 

27.3102 

03756 0 



TEFSW 

27,3103 

57105 1 



♦2 

27,3104 

15332 1 



tffzeros 

27,3105 

75440 0 

♦2 

BW 

SORT 


27,3106 57240 0 


27,3107 

27.3110 

27.3111 

27.3112 

27.3113 

27.3114 

27.3115 


LAST 769 
last 1350 


41076 0 
57343 1 
24045 0 
02372 0 
52441 1 
02327 0 
00017 1 


27.3116 44240 1 

27.3117 57140 0 

last 1350 27,3120 00045 0 


27.3121 14043 0 

27.3122 00033 1 

27.3123 44205 0 


MAxTPPl 


DCOMP BCVfl 

TODANZIO 
SKVL TPPTB^ 
VCUR, 

dot SL 3 
BCNE 
STORE TPPOi 

BDSU 

INBCIWD 

TPPIB1 


WlBR WITH BPBR IN MPAC 

BTOR NITH KIBIM IN MPAC 
■’ <-29) M» (-27) 

Xl=-NR 

RTBIN B’ (-29+NR) M’ (-27 ♦NR) 

AL« B’ (28-NR) M’ (24-NR) 

(2-ALBA RIBIM) (-3) TO PDL+0 
B’ (-29+NR) M* (-27 ♦NR) 

ItIBll4( 2-ALPA RIBim) to TOL^Z 
B* (-32^NR) M* (-30^NR) 

LC p B>(-38+2NR) M’(-38^2NR) 

XI = -NR 

IX* TO SHIFTS, keep PHECIsICN FOR SORT 
RIBIM( 2-ALPA RIBIM) FHCM PDL^2 
B* (-32^NR) M’ (-30+NR) 

LEAVE B* (-32) M> (-30) 

XI = -NR 

(SKV TBP / TVER SNITCH 

IF TFF, CCNTINUB 
IF TVER, set 02 = 0 
B* (-16) M’ (-15) 

NO FREE FALL CCNIC TO RTBIM FWM HERE 
reset POL, SET TBF^POSMAx, AND EXIT. 

RT IS (X INBOUND SIDE. ASSURE OVFIND-o 
AW PORT IN A STORM. 

02 E> (-16) M* (-15) 

VN/SQRT(MU) B» (10) M> (9) 

SAVED RN. E> (-29) M’ (-27) 

Ol, SAVE FOR GOIEPAST TEST . 

B* (-16) M> (-15) 

USB alternate z 

02 E’ (-16) M* (-15) 




ttnBdJND Z CAIJC (XHTINUES HERE 

STOOL TFFX i 

TPPALFA , 

DMP BDSU 


)«4=02-0i B’ (-16) M’ (-15) 
ALFA E* (26-NR) M' (24-NH) 


ASSB«LB RBVISKM 24* OP AOC PitCX»VH COLOSSUS BY NASA 2021111-041 
time op nSB FALL 


DAO BO)^ 

L1M(-221 
WPXTBST 
DUHO rODL 

TPPZ0ROS 


0453 

RHF 

7 

LAST 1344 

27,3124 

00041 

1 

AO 454 







0455 




27,3125 

51406 

1 

A0456 







0457 




27,3126 

40015 

1 

0458 

REF 

1 


27,3127 

17351 

0 

0459 

REP 

1 


27,3130 

57151 

0 

0460 




27,3131 

65345 

0 

0461 

REF 

2 

LAST 1350 

27,3132 

15332 

1 

AO 462 







0483 




27,3133 

57545 

1 

0464 

REP 

5 

LAST 1350 

27,3134 

00033 

1 

0465 




27,3135 

71240 

1 

0466 

REF 

1 


27,3138 

57245 

0 

A0467 







0468 




27,3137 

77616 

0 

A0469 







0470 




27,3140 

77745 

1 

0471 




27,3141 

45345 

1 

0472 

REF 

4 

LAST 1350 

27,3142 

00023 

0 

0473 

REF 

2 

LAST 1344 

27,3143 

00015 

0 

0474 

REF 

3 

LAST 1350 

27,3144 

14043 

0 

0475 

REF 

5 

LAST 1350 

27,3145 

00045 

0 

0476 




27,3146 

52015 

1 

6477 

REF 

2 

LAST 1350 

27,3147 

00017 

1 

0478 

REF 

1 


27,3150 

57125 

0 

0479 




27,3151 

65215 

1 

40480 







0481 

REF 

1 


27,3152 

17353 

1 

0482 

REF 

4 

lAST IKl 

27,3153 

00043 

0 

0483 




27,3154 

53605 

1 

0484 

REF 

2 

LAST 1345 

27,3155 

00031 

0 

0485 




27,3156 

57201 

0 

0486 




27,3157 

77671 

1 

A0487 







A0488 







A0489 







0490 




27,3160 

40145 

0 

0491 

REF 

5 

LAST 1351 

27,3161 

00043 

0 

0492 

REF 

1 


27,3162 

57243 

0 

A0493 







0494 




27,3163 

45471 

1 

A049S 







A0496 







• 0497 

REF 

6 

LAST 1351 

27,3164 

77732 

1 


DUMD DCtMP 

TPPALFA 
EMI DLQAD 
WPELl . 


20*35 OCT. 28,1968 SATBAP .flOT PAGE 1351 

U8BIUS PACE NO. H Eo S3 

EMAO B> (-294^NB) M’ (-2T+NH) 

(2-KreHM ALFA) (-3) PRCM PEX.+0 
DEN TO PDLtO B’ <-3) OB (-16) 

M* (-3) OB (-15) 
DOBIEHMINANCY TEST 
= 1 . 0 - 8 (- 22 ) 

GO IF DO) ff/= B(-22) 
set DO(=o OIHEJWISB 

XCH ZERO WITH PDL+0 

ALFA E’ (26-NH) M’ (24-NH) 

FOR TPER’ Z INDET AT DeLE/2=0 AND 90 . 
ASSOE 90, AND LEAVE 0 IN PDL’ l/Z=D/N 

z indbt. at perigee fob parab or HYPERB. 

RETURN TPP =0 


INBOUND Z CALC CONTINUES HERB 
INSCUND D(X)AD 

DUMD DSU 


RIBRN 
IMWl 
STCDl. TPPX 

TPP1H4 
DAD GOTO 
TPPOl 
SAvEDe4 

tffktest dad pool 

DPI -22) 
imc 

DMP SB* 

TPFRTALF 
0 -3,2 

DCV 


DUMD B(V 
TPPX 
TPPELL 


reset POL+0 

ALTEreMTE Z CALC 
E> (-29) M* (-27) 

E’ (-29) M’ (-27) 

NUM=H7EBM-RN E’ (-29) M’ (-27) 

02 E’ (-16) M> (-15) 

01 E’ (-16) M’ (-15) 

De7 = 02+01 E> (-16) M* (-15) 

(ABSIDEN) TO PDL+2)) E’ (-3) C» (-16) 
M> (-3 ) OH (-15) 
RESTORE ABS(DEN) TO MPAC 
NUM E’(-16) or (-29) M’(-15) OR (-27) 

SQRTIALFA) E’ (lO+NA) M’ (9+f(A) 

X2=-J« 

C(MPAC) sNLM SQRTIALPA) E’(-3 ) OR (-16) 
M>(-3) or (-15) 

ABSIDBO FBCM PDL+2 B’(-3) OR (-16) 
M*(-3) OR (-15) 

(the DLCAD IS shared WITH TFFEU,) 

NUM E* (-16) OR (-29) M’(-15) OR (-27) 

USE EON FOR DELE GEO 90. lEO -90 


OmERWlSE, (XKTINUE FOR GBJERAL CCNIC FOR TFF EON 


DOV SIADR 


STORE TFFTK4 


DBI FRCM PO(.+o E’ (-3) OR (-16) 
M* (-3) OR (-15) 
Z SAVE FOR SIGN OP SDEIE. 


AssaetE RBVISIGN 249 OP AOC KtOORAM COLOSSUS BY NASA 2021111-041 

TIMS OP nee pall 




A0498 

0499 

0500 

0501 RBP 

0502 

0503 

0504 BPP 


0531 

0532 

0533 BBP 

0534 BHP 

0535 

0536 

0537 
0536 
0539 

A0540 

0541 

0542 REP 

0543 BBP 


0- LAST 1350 


T lAsr 1351 
8 lAST 1352 


27.3185 

27.3160 

27.3167 

27.3170 

27.3171 

27.3172 

27.3173 


63406 0 
41206 0 
00035 1 
75261 0 
20206 1 
00045 0 
14045 0 


PUSH DSQ 
PUW DMP 
TPPNP 
9L 3104 - 
5 

7PPTB 4 
STOOL TPP104 


20’35 OCT. 28,1968 SATRAP .OOT KKB 1352 

USSRkS PACB no. 12 Hi S3 

B» (-13) M* (-12) 

Z TO FDL>0 

Z SO TO PDL+2 E> (-28) M* (-24) 

IjC P B> (-38+2NR) M’ (-36*Zmi 


APPIX SI(» POB SDELP (ENTRY DISPLAY) 
P ZSO B’ (-S9>2NR) M’ (-ss»Z!<a) 
(ABO IS USED IN TPP/'miO) 

ZSO PBCM I>DL*2 E’ (-26) M* (-24) 





27,3174 

41206 0 

puai 

DMP 

RESTOBB PUSI LOC 

REP 

6 

last 1351 

27,3175 

00033 1 


TPPALPA 

ALFA E> (26-NB) M> (2 




27,3176 

77657 0 

SL* 






27,3177 

20201 0 


0,1 

X1=-NH 

REP 

S 

last 1351 

27,3200 

00043 0 

STORE 

1PEX 

X 




27,3201 

41234 1 

RTB 

DMP 


REP 

1 


27.3202 

57325 1 


T(X) 

PCLY 








ZSO rWM PDL+2 E’ (-26 




27.3203 

44302 0 

sa2 

BDSU 

2 ZSO T(X) B' (-29) M 

REP 

5 

last 1351 

27,3204 

00023 0 


RIEEM 

RIBIW B» (-29) M’ (-Z 




27.3205 

41215 1 

DAD 

DMP 


REP 

3 

last 1351 

27,3206 

00015 0 


HMAGi 

E’ (-29) M’ (-27) 








Z PIKM PDL+0 B' (-13) 




27.3207 

51042 0 

SR3 

bpl 

TPP SQRWMU) E> (-45) 

REP 

1 


27.3210 

57231 0 


ENDIPP 

(NO PUSI UP) 




27,3211 

75206 1 

puai 

SICM 

TPP SQHTI.MJ) TO PDL+0 

REP 

3 

last 1351 

27,3212 

00017 1 


TPTOl 

Ol FOR GCNEPAST TEST 




27,3213 

71244 0 

BPL 

DLOAD 

OCNB PAST » 

REP 

1 


27,3214 

57235 1 


NBGTPP 

YES. TPP ± 0 . 

REP 

3 

last 1347 

27,3215 

00027 1 


TFPl/ALP 

1/ALFA E* (-22-2NA) M’ 




27,3216 

51076 1 

DCCMP 

Bpl 

ALFA S 0 » 

REP 

2 

LAST 1352 

27,3217 

57235 1 


NBGTPP 

NO. TPP IS negative. 


LAST 1351 


last 1344 


27.3220 

27.3221 

27.3222 

27.3223 

27.3224 

27.3225 
27,3220 
27,3227 

27.3230 

27.3231 

27.3232 

27.3233 


77676 0 
56205 0 
17347 1 
00031 0 
53657 0 
57602 1 
57602 1 
43257 0 
57576 1 


COBBBCT POB ORBITAL PERIOD. 


D(V 

PI/16 

TPPRTALP 

SL* 

0 -4,2 
0 -4,2 
DAO 
0,2 


YES. CCBRECT FOB OBB PERIOD. 

2 PI (-5) 

SOBnAIEA) E’ (lO+NA) M’ (9»lO) 


40005 0 a4DTPP 
00037 0 
57241 1 


27,3234 77816 0 DUMPlPPa RVO 


TPP SQRT(f4J) PHCM POL+0 B’(-*5) i«»(-42) 
B<V TPP SQBTIMJ) IN MPAC E’(-4S) u4>r_42) 

TPP/BIH) E’ (17) M’ (14) 

MAXTPP SET POSBAX IF OVPL. 

return TPP (-28) cs IN WAT. 



Ill 


ASSaeLE REVISION 24g OP AGO PROtfflAM COLOSSUS B¥ NASA 2021111-041 
TI« OP FREE PALL 



•S45 

110546 

tS4T 

6546 

6549 

6556 

6551 


A0553 

A6554 

6555 

6556 
A655T 
A655B 

0559 

6560 

6561 
0562 

A0563 

6564 

6565 

6566 
656T. 
6566 
6569 
eSTO 
BSTl 
6ST2 
6ST3 
6ST4 
6ST5 
05T6 
65TT 

0578 

0579 

0580 
A0581 
A0S8Z 
A0583 

0584 

6585 

6586 

0587 

0588 

0589 

0590 

0591 




27,3235 

77745 1 

NEOffP 

DUMD 


ter 

2 LAST 1352 

27.3236 

27.3237 

77650 1 
57231 0 


GOTO 

BNDTPP 

REP 

5 lAST 1347 

27.3240 

27.3241 

27.3242 

77745 1 
43545 1 
17363 1 

mXTPPl 

)4AXTPP 

DLOID 

DL(WD 

16/0 

NEAROIB 

time 

OP PLiafT ELLIPSE OHBI DEL (B0CB»TR1C ANCM) 

GEO 90 

AND LEO -90 


REP 

9 

LAST 

1352 

REP 

4 

LAST 

1352 

REP 

1 



REP 

10 

LAST 

1353 

REP 

4 

LAST 

1352 

REP 

11 

LAST 

1353 

BPS' 

16 

LAST 

1293 

REP 

T 

LAST 1352 

REP 

2 

LAST 

1352 

REP 

8 

LAST 

1353 

REP 

1 



REP 

12 

LAST 

1353 

REF 

4 

LAST 

1352 

RH' 

5 

LAST 

1353 

REP 

13 

LAST 

1353 

REP 

7 

LAST 

1352 


27,3243 

77712 

0 

TPPBLi-/ 

SL2 


27,3244 

41465 

0 


BDOV 

puai 

27,3245 

45345 

1 

lypELi 

DLQAD 

DSU 

27,3246 

00045 

0 



tppiem 

27 , 3247 

00017 

1 



TPPOl 

27,3250 

14013 

0 


STCDL 

TPPDELO 

27,3251 

77626 

0 


stadr 


27.3252 

77732 

1 


STORE 

TPPIPM 

27,3253 

53605 

1 


DMP 

SL* 

27,3254 

00027 

1 



TPPl/ALP 

27,3255 

57576 

1 



0,2 

27,3256 

41206 

0 


puai 

DMP 

27,3257 

00045 

0 



TPP®! 

27,3260 

41057 

0 


SL4 

BCVfl 

27,3261 

57576 

1 



0,2 

27,3282 

45707 

0 



SIGNMPAC 

27,3263 

00043 

0 


STORE 

TPPX 

27,3264 

41234 

1 


RIB 

DMP 

27,3265 

57325 

1 



T(X) 

27,3266 

00043 

0 



TPPX 

27,3267 

45242 

1 


»I3 

DSU 

27,3270 

17355 

i 



DP2(-3) 

27,3271 

41405 

0 


DMP 

PUSH 


20 ’35 OCT. 28,1968 SATRAP .007 PAGE 1353 
USBRaS PAGE. NO. 13 PO S3 

7PP SQRKMU) PKCM PDL+O,. NEGATIVE. 

RESET POL 


NIW PRCM IFRC. E’ (-16) OR (-29) 

M’ (-15) OR (-27) 

NIW E>(-14) or (-27) H’(-13) OR (-25) 

TB4P SAVE D/N IN PDL+O 

DPN FBCM PDL*0 E’(-3)/( 16) M’(-3)/(-15) 
H/D TO PDL+O E’ dD dO) 

(ENTER WITH D/N=0 IN PDL+fl) 

02 E> (-16) M’ (-15) 

Ol E’ (-16) M’ (-15) 

02-01 E’ (-16) M’ (-15) 

D/N FR(W PDL+O 

D/N E’ (11) H’ (10) 

l/AUA B’ (-22-2«) M’ (-20-2NA) 

1/ALPA Z B’ (-11-NA) M’ (-10-NA) 

TO POL+0 

1/Z E’ (11) M’ (10) 

X2= -NA 

IN case X= 1.0, CCNTINUB 
Xsl/AIJA ZSO 

pcly; 


27.3272 

27.3273 

27.3274 

27.3275 

27.3276 

27.3277 

27.3300 

27.3301 


41345 
00045 
00015 
43312 
00017 
14045 
00035 1 
53605 1 


DLOXD DMP 

TPB1B1 

PMKOl 

SL2 DAD 

TPPOl 

STOOL TEPIEM 
TFFNP 

DMP SIA= 


2(X T(X)-1) /Z ALPA 
1/ALPA Z PRCM PIX.+0 


B’ (-13-NA) 
H’ (-14-NA) 
B' (-11-NA) 
M> (-10-NA) 


GET SIGN POR SDELP 
1/Z E’ (11) M’ (10) 

E’ (-29) M’ (-27) 

Ol E’ (-16) M’ (-15) 

(Ol+R 1/Z) =SGN OP SDEIP' E’(-16) M’(-15 
LC P E’ (-3B+2NB) M’ (-36+2NR) 

CAIX POR ABO POR TEF/TRIG. 



ASSaeiB HEVISICW 249 op AOC mXSWM colossus by KASA 2021111-041 
TI* OP PHEB pall 


0802 

AOS 03 

A0604 

0605 

0606 

060T BBP 
0608 

0609 REP 
0010 
0611 
0612 

0613 REP 


REP 

5 

last 1353 

27,3302 

00027 1 





27,3303 

57575 1 


REP 

14 

last 1353 

27.3304 

27.3305 

53765 0 

00045 0 

SIGN 

REP 

15 

last 1354 

27.3306 

27.3307 

57576 1 

14045 0 

STOOL 

REP 

6 

last 1354 

27,3310 

00027 1 


REP 

2 

last 1352 

27.3311 

27.3312 

41366 1 

17347 1 

SORT 




27,3313 

77815 0 

OAO 


2 last 1353 
T LAST 1354 

3 LAST 1353 


WPl/ALP 

1.2 

gAt 

IPPl®* 

0,2 


WPl/AUf 

BMP 

PI/16 


27,3314 

45257 0 

Sj* 

Dgu 

27,3315 

57577 0 


0 -1,2 

27,3318 

00013 0 


irajao 

27,3317 

53805 1 

DMP 

SU4 

27,3320 

00027 1 


TP^\/ALF 

27,3321 

57801 1 


0 *3,2 

27,3322 

52057 1 


0010 

27,3323 

57602 1 


0 -4,2 

27,3324 

57231 0 




20*35 OCT. 28,1968 SATRAP .OOT PAGE 1354 

UffiR>8 PAOB NO. 14 BO 83 

1/AlPA E*(-22-2NA) M’{-20-2NA) 

X2=-NA 

APPIX SIW POB SJBLP 

P/ALPA E>(-59+2NR) M>(-55»2NR) 

IARO POR USB IN IPP/TRIO) 

1/ALPA B»(-22-2NA) M*(-20-2NA) 

PI f-4) 

2<XT<X)-1)/Z ALPA PRCM PDL E*(-i 5-NA) 
M*{-14-NA) 

02-01 E> (-16) M’ (-15) 

1/ALPA E'(-22-2NA) M’{-20-»«) 

WP SQRTI)AJ) IN MPAC £’(-45) M*C-42) 



Ill 


PM14 

MSIO 

■M18 

neu 

BM21 

■M22 

■0823 

■0824 

■0825 


AS3B«LB levISICM 249 OP AOC IWJGBAM COLOSSUS BY MAS* 2021111-041 
TIMS CP PRB8 FAU. 

■KXl 


■OS2T 

■0828 

■0828 

■0831 

■0833 

■0835 

■0830 

■083T 


20 ’35 OCT. 28,1908 SATRAP .OOT PACK 1355 
USBRbS pace no. 15 So S3 


DAIE’ Ol.lT.OT 

UH SBCTICK’ T»« CP FREE FALL 


PROtSAM NAMB’ 

HOD NO’ 0 

MOD BY’ RR BAIiWSFAlHER 

FIECtKMAL DESCRIPTION’ T® POLYNCMIAL WX) IS USED BY TIMS OP PLIGHT SUBHOotINES CALCTFF AND 

caldtper to apprckihaie the series 

2 3 

1/3 -X/5 ♦X /T -X /9 ... 


WCBE 


ALSO 


X = ALFA * Z 
X = 1/(ALFA Z Z » 


IP ALFA Z Z 
IF ALFA Z Z 


LEO 1 
O 1 


X IS NEB FOR HYPERBOLIC ORBITS 
X = 0 for PARABOLIC ORBITS 
X IS POSITIVE FOR ELLIPTIC ORBITS 

FOB FLKHT 2T8, THE POLYNCMIAL T(X» IS FITIHJ OVER THE RANGE (O.+D AND HAS A MAXIMUM 
DEVIATICK FRCM THE SERIES OP 2 E-5 <T<X> IS A CHEBYCHEv TYPE FIT AND WAS OBTAINED USING 

MAC program AUlCX«PIT294RRa AND IS VALID TO THE SAMB TOLERANCE OVER THE RANGE (- Oft * 1 ) ) 

CALLING SEQUENCE’ RIB ’ ^ ' 

TCXl 

C(MPAC) = X 



■8838 

SlMROUMNES CATIPD’ 

NCNE 








■8639 

NCHMIL EXIT MODE’ 

IC DANZIG 







■0848 

ALARMS’ 

HCNB 









■0841 

OUTPUT’ 

C(MPAC> = 

TCX» 








■0842 

erasable 

INITIALIzATICN RBOJIBHI* 







■0843 



CCMPAC) = 

X 









DEBRIS' 

NCNE 









8845 

REF 

10 

last 1284 

2T,332S 

0 7171 

1 

T(x) 

ic 

PCLY 



8848 




2T,3326 

00004 

0 


oec 

4 


N. 

884T 




27,3327 

12S2S 

0 


2PBC 

3.333333333 

E-1 


Oe4T 




27,3330 

12S2S 

0 






8848 




27,3331 

71463 

0 


2DeC# 

-1.999819135 

B-1 

* 

8848 




27,3332 

57703 

1 






8849 




27,3333 

04423 

0 


2D6C* 

1.418148467 

E-1 

* 

8849 




27,3334 

17645 

0 






8850 




27,3335 

74604 

0 


2DeC* 

-1.01310997 

B-1 


8858 




27,3338 

43867 

t 






0851 




27,3337 

01626 

1 


ZDBC* 

5.609004986 

B-2 

♦ 

8851 




27,3340 

37256 

1 






0852 




27,3341 

77404 

1 


ZDBC* 

-1.536156925 

E-2 


8852 




27,3342 

52071 

0 






8853 

REF 

6T 

LAST 1286 

27,3343 

0 6030 

1 

Bffmx) 

1C 

DANZIG 



8854 

BH' 

1 


27,3343 



ICDANZIC 

- 

ENDT(X) 





Ill 



ASS&BLB RBVISION 249 CF AOC PROCBAM CQUSSUS BY (USA 2021111-041 

Tiie OP nes fau. 


20’35 OCT. 28,1908 SATRAP .OOT PAOB 1358 
uaSUS PAOS MO. 16 Bo 83 


P06S5 

0658 


IFF CDNSIAMTS 


32,3755 


BA(«C 32 


0057 

RBP 

1 



27,2000 




tgrwcc tqp-ffi 

0658 





27,3344 




aA(6C 


A0659 










NO® HOIB ADJUSTED (tiB FOB NEAR EARTH 

A0600 








(«« 

_ 

3.990 815 471 BlO H HFE/CS SO 

A0601 








BBte 

= 

1.997702549 Es B-ig* MODIFIED EARTH HJ 

0662 





27,3344 

24TT5 

1 

l/KMI 

2DBt> 

.5005750271 E-5 Bit* MODIFIBD BARTH HJ 

0662 





27,3345 

30424 

0 




A0663 










NOTE NOTE ADJUSTED MB FOR NEAR EARTH 

A0664 








(U« 

- 

4.902 778 Bg M (XBE /Cs SO 

A0665 








RDU4 

1P0C* 

2.21422176 B4 B-ig* 

0666 





27,3346 

06220 

1 

PI/16 

2060 

3.141592653 8-4 

0666 





27,3347 

37553 

0 




0667 





27,3350 

3TTT7 

1 

Ll>«-22> 

20CT 

37777 37700 1.0 -81-22) 

0667 ' 





27,3351 

37700 

1 




0668 





27,3352 

00000 

1 

DP(-22» 

20CT 

00000 00100 B(-22) 

0668 





27,3353 

00100 

0 




0669 





27,3354 

04000 

0 

DP2(-3> 

2060 

1 B-3 

0089 





27,3355 

00000 

1 




0670 





27,3356 

02000 

0 

DP2C-4> 

2060 

1 B-4 1/16 

0670 





27,3357 

00000 

1 




R0671 

HPADl 


2060 

6373338 B-29 

M i. 

-29> =20 909 901.57 FT 

0672 

BEF 

5 

LAST 

536 

22,3310 



RPAOi 


HPAD 

0673 





27,3380 

00305 

1 

R30aK 

2060 

6484778 B-29 1-29) M 

0673 





27,3381 

11205 

0 




0674 





27,3382 

37777 

1 

MEAHCME 

2060 

.999999999 

0674 





27,3383 

37777 

1 




0675 

BBF 

31 

LAST 1323 

28,3331 



TFPZEHQS BOJALS HISZEROS 

0676 

HKF 

4 

LAST 

8B8 

26,3321 



7m/4 

BQUALS HIDPl/4 





